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1. INTRODUCTION 

All of the information in this manual is copyrighted by Montezuma Micro, including the source code 
listings. The purpose of this manual is to provide you with the information necessary to modify the 
BIOS of your own copy of CP/M* . Much like the service manual for a car, this document will show 
you how the BIOS works, and how you can use your own options with it. It will NOT teach you how 
to use CP/M and it will NOT teach you how to write assembly language programs for use with CP/ 
M. If you bought it for that purpose you will be frustrated and confused. Let us state from the outset 
that this manual is for experienced programmers! We absolutely cannot and will not provide any 
telephone or written support for any modifications made to CP/M. In short, you are ON YOUR OWN 
and if the information you need can't be found in this manual it simply is not available from us. 

Furthermore this manual is applicable to Montezuma Micro CP/M BIOS version 2.2x, where x is the 
patch level. When future versions of our CP/M are released the listings and possibly some of the 
information will no longer be valid. We make no promises of any kind as to the availability of a similar 
manual for future versions, and offer no "upgrades" of any kind on this document. 

The BIOS listing which accompanies this manual was created using the 2500 A.D. Z80 Macro As 
sembler. This assembler uses Z80 mnemonics, unlike the ASM assembler provided with CP/M which 
uses only 8080 codes. Without apology the author admits to a strong bias for the Zilog Z80 mnemonics, 
and a strong distaste for the Intel 8080 mnemonics. Only Zilog mnemonics will be used in this manual- 
The 2500 A.D. assembler is available from Montezuma Micro, and is highly recommended for Z80 
programming. 

Well, now that we have the preliminaries out of the way let's proceed! 
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2. THE SYSTEM PARAMETER BLOCK 

MOVCPM is a very handy utility which makes it possible to change the size of CP/M so as to reserve 
space a the top of memory. Unfortunately this creates a major headache for the programmer who 
wants to write utilities to run under CP/M, since it is not possible to know exactly where in memory 
each individual copy of CP/M resides. Furthermore some parts of the BIOS may be relocated in the 
event of an update, necessitating the up date of all related utility programs. 

To solve these problems we have collected all of the "need to know" information into a section of 
memory called the System Parameter Block (SPB). The relative location of this block within the 
BIOS is guaranteed not to change from one version of the BIOS to the next. Further, any additions 
to it will be made to the end so that relative offsets within the SPB will be good in future versions. 

Location of the SPB within CP/M is very simple. It is always 48 bytes (0030H) past the Warm Boot 
vector in the BIOS. Since the address of the Warm Boot vector always follows the JMP instruction 
at memory location the SPB can be found using this simple routine: 



LD HL,(0001H) 

LD BC,0030H 

ADD HL,BC 



Get Warm Boot vector address 
Set up offset to SPB 
HL now points to SPB 



The remainder of this chapter will deal with the various fields of the SPB. All offsets are given in 
decimal. Conversion to hex is left as an exercise to the reader. 



Offset 

The first field of the SPB is a single byte which contains the standard system IOBYTE value set by 
the CONFIG utility. At each warm boot the contents of this byte are copied to location 3. 

Offset 1 

Acting as a flag, the contents of this byte tell the BIOS whether to display the CP/M banner after 
booting. Any non-zero value will cause the banner to be displayed, while zero suppresses it. 

Offset 2 

In this byte is stored the total number of disk drives, as set by CONFIG. It is never used by the BIOS, 

but may be of use to external utilities. 

Offset 3 

The current version of the CP/M BIOS is stored here as two BCD digits packed in a single byte. The 
first digit is the release number, which changes only upon a complete rewrite. The second is the 
revision level, which changes upon reassembly of the BIOS. In a fit of optimism the BIOS programmer 
set this byte to 20H, meaning 2.00. By the time release 2 was ready the revision level had crept up to 
2, but the byte was left at 20H. Thus a value of 20H in this byte should be treated as being synonymous 
with 22H. 

Offset 4 

Access to disk drives in the BIOS is done using a data structure known as the Disk Parameter Header. 
It is discussed fully in the manual provided with your CP/M. To allow for the maximum 16 drives 
possible within CP/M (A: through P:) we have built a 32 byte table of DPH addresses within the 
BIOS. Whenever a drive is selected via BIOS call XXlBH its corresponding address in this table is 
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returned. Unused entries are set to 0000H. The two byte address contained in this offset of the SPB 
is the actual base address of the DPH table, i.e. the address of the address of the DPH for A:. By using 
relative offsets to this address utility programs may add logical drives to the DPH table. Simply store 
the address of the DPH of your logical drive at the corresponding entry in the table. Use extreme 
caution with drive M:, however. The BIOS disk read/write routines test for drive M: and transfer 
control to special driver coding for that case. Storing the DPH for any other drive in the M: slot will 
cause problems. 

At boot time the DPH table is filled with zeroes and the slots for A:, B:, C:, and D: are filled with the 
addresses of the four DPHs resident within the BIOS. If the system has 128k of RAM the DPH for 
drive M: is also added to the table. When the system is booted from a hard disk a patch in the disk 
boot causes this table to be overwritten with the configuration specified when the hard disk driver 
was installed. 

Offsets 6, 8, 10, and 12 

These four offsets contain the two-byte addresses of the disk Device Control Blocks (DCB) for each 
of four possible floppy disk drives through 3 respectively. The disk DCB, which will be discussed in 
depth in the DISK I/O section, is used to access a particular floppy drive and contains all the physical 
characteristics of that drive. 

Offset 14 

At this offset in the SPB is a two-byte address which points to the base of a table of device driver 
addresses. This table is used by the BIOS for all I/O except for disk and has been designed to simplify 
the installation of custom drivers. See I/O USING THE IOB YTE for full details. 

Offset 16 

The base address of the Keyboard Device Control Block (DCB) is found at this offset. See THE 
KEYBOARD DRIVER for information regarding the Keyboard DCB. 

Offset 18 

Here is the base address of the Video Display DCB. This data structure is fully explained in THE 
VIDEO DISPLA Y DRIVER . One item of interest in this DCB is the current cursor location. 

Offset 20 

The base address of the Parallel Printer Port DCB is stored here. For a full explanation of the DCB 
see THE PARALLEL PRINTER DRIVER. 



*>■■ 



-1,22 

: -sot contains the base address of the Serial Port DCB. See THE SERIAL PORT DRIVER for 
te details. 

This is the end of the SPB, at least for now. Any extensions made in future versions of our CP/M 
BIOS will be made starting at offset 24, thereby retaining compatibility with programs written for 
earlier versions. You are encouraged to use this structure whenever you must "peek", "poke", or 
otherwise farkle with the BIOS. Doing so will make your life easier and could help to remove unsightly 
warts! 
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3. I/O USING THE IOBYTE 

One of the optional features of CP/M 2.2 that we have implemented is the IOBYTE. The IOBYTE 
is a set of four two-bit (literally!) fields that can be manipulated to change the assignment of real 
devices (Keyboard, Serial Port, etc.) to logical devices (CONsole, Line PrinTer, etc.). By convention 
it resides in memory at location 3 (0003H for hard-core hexaphiles) and is structured like this: 



Logical Device — > 


LST: 


PUN: RDR: 


CON: 


Bits Used 


... > 


7,6 


5, 4 3, 2 


1,0 


Decimal ] 


Binary 




- Physical Device 











00 


TTY: 


TTY: TTY: 


TTY: 


1 


01 


CRT;: 


FTP: PTR: 


CRT: 


>> 


10 


LIT: 


MM: Mil: 


BAT: 


. 3 


11 


UL1: 


UP2: UR2: 


UC1: 



The logical devices referenced above are as follows: 

LST:The LiST device, typically used in Cl'/M lor hardcopy, is output only. Usually it is assigned to 
a printer. 

PUN:The PUNch device reveals the origins of CP/M, back when a paper tape reader/punch was the 
norm for microcomputers. While such hardware is now relegated mainly to museums and junk yards, 
we still have this output (only) device to use as we see fit. 

RDR:Like PUN:, the ReaDeR device is a throwback to those golden days of Ik RAM boards and 
Tiny BASIC. Use it as you wish for input (only) operations. 

CON: Perhaps the most important device from an operational standpoint is the CONsole. It is the 
device from which CP/M gets its commands and to which it sends its output. You must be very careful 
in making assignments to this device, since mistakes can cause you to be unable to communicate with 
CP/M at all! 

Now let's look at the case of physical devices, as defined within our CP/M: 

TTY: Another relic from the Neanderthal age of computing is the TeleTYpe. This was a large, noisy 
machine consisting of a keyboard and a printer. It was able to send and receive data at the blazing 
speed of 10 characters per second. We have assigned this device to the Serial Port of the Model 4, 
since the original TTY was serial and you could actually connect one to this device if you really wanted 
to. 

CRT: CRT stands for Cathode Ray Tube and as come to stand for just about apy kind of terminal 
using video output. We have defined the CRT to be the Keyboard of the Model 4 on input and the 
Video Display on output. 

PTP:Since there is no Paper Tape Punch on the Model 4 we have assigned this device to the Video 
Display. You could, of course attach a true paper tape punch to that port, but if you think about this 
sort of thing often you really ought to get professional help. 
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PTRrThe Paper Tape Reader falls in the same category at the PTP. Since there (thankfully) is no 
such device on the Model 4 we use the Keyboard. 

LPT:This device is the Line PrinTer, which could be either a serial or a parallel device. Since we 
already have TTY: for serial output LPT: is assigned to the parallel port. It is, by nature, output only. 

UP1:UP2: UP1 and UP2 are user-defined punch devices. The BIOS maps both of these devices to a 
null driver which does nothing, but is never busy and will not hang up the system if used. Both of 
these devices are available for user- written drivers. 

UR1:UR2: Like UP1 and 2 the UR1 and UR2 drivers are user-defined, but these are reader devices. 
The BIOS, as shipped, has both devices assigned to a null driver which provides only the end-of-file 
character Z as input, but will not hang up the system. Both are available for use with user-written 
drivers. 

UL1: The UL1 device is a user-defined line printer. It is, by nature, output only and is assignable 
only to the LST: logical device. Interfacing of special output devices, e.g. a plotter, can be done using 
this device. As shipped this device is assigned to a null driver. 

* 

UCltUCl is the user-defined console device. If implemented it must provide both input and output 
capability. Unlike other user-defined devices, this one is preassigned to the Keyboard driver for input 
and the Video Display driver for output. This was done so that there would be no nasty loss of control 
should the device be accidentally assigned. 

BATrln olden times when computers were slow and I/O devices were even slower it was common to 
set up a "batch" of instructions for the machine, start it up, and leave for a two- week vacation. We 
have implemented the BATch device faithful to its original use. When input is taken from BAT: it 
actually comes from whatever is assigned to the RDR: device. Output to BAT: actually goes to the 
LST: device. As you can see BAT:»is not a physical device, but merely a switch to change the assign 
mentof CON:. 

Now that we have seen just what devices are available, how do we go about actually installing a driver 
for one? Obviously you must first write the driver. What it doos it up to you, but there are some 
conventions that must be followed if the driver is to work properly in CP/M. At minimum it must 
provide the following four functions: 

Input Status 

No parameters are required. If the device has input available it should return OFFH in the A register, 
otherwise return 0. 

Input Data 

A byte of input is read from the device and returned in the A register. If no input is available this 
routine must wait until it is. 

Output Data 

The C register contains the byte of data to be output to the device. No value is returned to the caller 
after output. 
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Output Busy 

The output device is tested for a busy condition. If it is busy a value of is returned in the A register. 
Ready is indicated by a return of OFFH in the A register. 

Of course your device may not actually need all of the above routines, especially if it is input-only or 
output-only. Unused routines should be replaced with null driver code, so as to prevent problems 
should a calling routine do something stupid. A sample null devic^ driver can be found in the BIOS 
listing. 

Installation of a driver is not difficult. First you need to find a plaice in RAM to hold the driver. If it 
replaces an existing CP/M driver you may want to load it over thje existing driver. Be sure that you 
don't overwrite other code if you do this! The safest method is t& locate the driver either above or 
below CP/M. To load it above CP/M use MOVCPM to create a smaller system. This is preferable to 
loading it below CP/M, since that method makes the driver vulnerable to being destroyed by programs 
which use all of available memory. Once you have located the driver in RAM it is necessary only to 
install the addresses of the above four routines in the proper place within the Device Driver Address 
Table in the BIOS. The base address of this table can be obtained from offset 14 in the System 
Parameter Block (SPB) discussed previously. Each entry in this table consists of four two-byte ad 
dresses arranged in the following order: 

Address of Input Status routine 
Address of Input Data routine 
Address of Output Data routine 
Address of Output Busy routine 

Each device holds a particular entry in the table. The devices and their respective offsets are as follows: 



Device Offset 


Device 


Offset 


Device 


Offset 


TTY 


: 


CRT: 


8 


UCl: 


16 


LPT: 


: 24 


ULl: 


32 


PTR: 


40 


UR1: 


48 


UR2: 


r>6 


PTP: 


64 


UP1: 


72 


IJP2: 


80 







These offsets will be held constant in future versions of CP/M. It is unlikely that any new devices 
will be added, but should that happen the new devices would be added after all existing ones. 
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4. THE KEYBOARD DRIVER 

The console device CON: is CP/M's main source of input other than disk. Most of the time the Model 
4 keyboard serves as the primary input device for CON:. 

At first glance the keyboard looks like a fairly simple device to interface with. Just scan the rows and 
see which key is being pressed, then return the ASCII value for that key. Unfortunately the problem 
is not that simple since you have to contend with SHIFT, CTRL, rollover, repeating keys, function 
keys, debounce, and a whole lot of other annoying stuff. Our methods for dealing with this chaos may 
be found in the keyboard driver portion of the BIOS listing. The purpose of this section of the manual 
is not to explain how the driver works, but rather to discuss the Keyboard Device Control Block 
(DCB). 

The various fields of the Keyboard DCB will be discussed using the field name as shown on the BIOS 
listing, as well as the decimal offset that the field has from the base of the DCB. 

KBDBUF - Offset 

When the Keyboard driver is called to check for pending input it must scan the keyboard to see if a 
key is depressed. Since the status routine does not return the actual key value, but only a flag, it is 
possible that the key will no longer be depressed when the input routine is called to read it. To prevent 
that from happening any key that is found will be stored in this buffer. On future calls to the status 
routine if anything is in the buffer a OFFH will be returned without doing another keyboard scan. 
Likewise the input routine always checks the buffer before scanning the keyboard for input. It is 
important to note that his buffer is for only one character and is not in any sense a type-ahead buffer. 

KBDFKP - Offset 1 

The function keys can be set up to deliver from to 8 characters when pushed. Since only one char- 
acter is transmitted on each call to the driver a way is needed for the driver to "remember" what the 
rest of the characters are. This is done using this two-byte pointer, which contains the address of the 
next character to be used as input. 

On every call to the keyboard input routine KBDFKP is checked for a non-zero value. If it is found 
to be non-zero then a character is loaded from the address in KBDFKP. As long as the loaded char- 
acter is not zero it is returned to the calling program just as though it had been typed. When a zero 
value is read KBDFKP is set to zero and the driver resumes keyboard scanning. 

Although the function keys arc located within the Keyboard Driver in the BIOS, it is possible to set 
KBDFKP to point to strings of "key input" in other parts of memory. This is exactly the technique 
used by Monte.'s Window to return Calculator results as keyboard input. There is no limit to the 
length of the pseudo keyboard input, but the last byte must be 0. 

KBDHST - Offset 3 

This 8 byte field is used to hold the results of previous scans of each of the 8 keyboard row; lines. The 
information is used to lock out keys that were depressed on previous calls to the driver. Since these 
fields are necessary for the correct implementation of rollover and repeat it is strongly recommended 
that you don't mess with them! 
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KBDPKR - Offset 1 1 
KBDPKI- Offset 12 
KBDDLY - Offset 14 
KBDRPT - Offset 16 

These fields are all used in controlling the automatic repeat of a key held down more than a few 
seconds. Tweaking and other perverse manipulation is likely to have bad results! 

KBDCLF - Offset 18 

4 

The Caps Lock Flag is used by the driver to remember whether the keyboard is locked into all upper 
case or not. Only bit of this byte is actually used but care should be used to keep the other 7 bits set 
to 0. A value of in this byte indicates that the keyboard is operating in normal upper/lower case, 
while a value of 1 says that it is locked into all-caps. This flag may be changed so long as the only 
values used are and 1. 

KBDCOD- Offset 19 

All of the alpha keys are decoded "on the fly " using the scan information to generate ASCII codes 
immediately. This technique is not easily applied to the numeric and special function keys, so those 
are decoded using a table. The Keyboard Decode Table is divided into three entries of 24 bytes each. 
Each entry defines the following keys in this order: 

o l 2 :$ -i r, <> 7 

8 9:;,-,/ 

ENTER CLEAR BREAK UP DOWN LEFT WIGHT SPACE 

The first entry defines the above keys used alone, i.e. without either SHIFT key or the CTRL key. 
Definitions for SHIFT in combination with these keys are in the second entry, and the last entry is 
for CTRL definitions. Obviously you can change these key definitions to virtually anything you want. 
We do offer a few recommendations. The ENTER key should produce a carriage return whether 
SHIFTed, CTRLed, or used alone. That's why our utilities} don't allow it to be changed. It would 
probably also be a good idea for the normal and SHIFTed keys to produce the character inscribed on 
the keytop. Beyond that, have fun! 

KBFKD -Offset 91 

The FuiK.liun Key Definition table contains the strings to be issued when any of the nine possible 
function key combinations is selected. This table has nine entries of nine bytes each. The first three 
correspond to unshifted Fl, F2, and F3, while the next three are used for SHIFT/ Fl, SHIFT/F2, 
and SHIFT/F3. CTRL/Fl, CTRL/F2, and CTRL/F3 are defined in the last three entries. Each def- 
inition string may be from to 8 characters long, but the last byte in the string MUST be 0. That's 
the signal for the Keyboard driver to stop. 

This concludes the Keyboard DCB. Since this data structure is used only by the BIOS Keyboard 
driver it need not be present for Keyboard drivers that you may write yourself. However the last two 
fields (KBDCOD and KBFKD) must be present at those offsets if the CONFIG utility is to be used 
with your driver. Field KBDFKP must be present for Monte's Window to work, and that product 
may not work at all if your Keyboard driver is not physically located in the BIOS memory space. 



y ! < 
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5. THE VIDEO DISPLAY DRIVER 

The Video Display driver uses the Model 4 memory-mapped Video Display to emulate a Lear-Siegler 
ADM-3A terminal. Most CP/M compatible software expects the CON: device to be an ASCII terminal 
and the ADM-3A is one of the more common terminals in use, so this arrangement works well. At all 
times except when it is actually beig updated the Video Display RAM is kept switched out of the 
memory map. This allows BIOS code to occupy the same spaqe and reduces the overall memory 
overhead on the system. 

Operation of the Video Display Driver is uncomplicated and should be easy to follow in the BIOS 
listing. The main purpose of this section is to explain the Video Display Device Control Block (DCB). 
This discussion will use the field names from the listing and their offsets from the base of the DCB. 
As mentioned earlier the address of the Video Display DCB can be obtained from the System Param- 
eter Block (SPB). 

VDDCHR - Offset 

Depending on the state of the Video Display the cursor character may be either an inverse-video form 
of the character under it or a wedge-shaped character. This field keeps the character under the cursor 
so that the driver may easily replace it when moving the cursor. 

VDDROW - Offset 1 

In this byte is stored the current cursor row address, which will have a value varying from to 23. 
The top line of the screen is row 0. Programs may interrogate this field to "find" the cursor on the 
screen, but should not write to it as a means of moving the cursor. If you do the Video Display driver 
will not be able to erase the old cursor and you will soon have a display full of cursors with only one 
of them being real. 

VDDCOL - Offset 2 

The current cursor column address is stored in this byte. It will range from to 79 with being the 
leftmost column on the screen. As with VDDROW this field should be considered "read only". 

VDDINV - Offset 3 

Data may be displayed in normal video (white characters on black background) or inverse video (black 
characters on white background). The current video mode is kept in bit 7 of this byte. A value of 
means normal video, while 1 (80 hex) means inverse. No other value should ever be put in this byte 
except and 80 H. 

VDDESC - Offset 4 
VDDESX - Offset 5 

These fields are used in processing the ESCape sequence used for cursor positioning. They provide 
no useful information to external programs and should never be modified. 

VDCXAT - Offset 6 

This table is a series of 32 byte entries that correspond to the control codes from to 31 (00H to 
1FH). Originally the table consisted of two-byte addresses of service routines to process the various 
control codes. During the final stages of implementing release 2.00 of CP/M, though, the bytes got 
very scarce and this table was converted to 32 one-byte offsets in a desperate attempt to recover space. 
This makes it somewhat unstable for future versions, since it cannot span a 256 byte RAM boundary, 
and it should not be counted on in subsequent releases. 
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The reason for using the table was so that any unused video control codes could be assigned as du- 
plicates of existing codes to possibly provide compatibility with other computers. In particular the 
Kaypro series can be closely emulated in this way. When using this table the offsets which are defined 
should be considered read-only, while the others may be modified as needed. Don't bank on this table 
working the same in future generations. 

This concludes the Video Display DCB. You may replace the entire Video Display driver with one of 
your own design, but be advised that Monte's Window may not function correctly if the driver is not 
located in BIOS RAM space. Since part of the BIOS code resides in the Video RAM space you must 
also switch the Video RAM in and out of the map as the existing driver does. 



W ( 
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6. THE PARALLEL PRINTER DRIVER 

The Model 4 computer is equipped with a Centronics-compatible parallel printer port. Our CP/M 
BIOS provides a driver for this port with some options that are contained in a Device Control Block 
(DCB). Operation of the driver is quite simple and should be apparent from the BIOS listing. The 
purpose of this section is to describe the DCB used for this port. Each field of the DCB and its offset 
follows. 

PPDPRV - Offset 

The character last output to the printer is kept here. This is needed whenever a linefeed is output, 
since we may not wish to output it at all depending on what went before. Manipulating this byte 
probably serves no useful purpose to an external program. 

PPDOPT - Offset 1 

All options set by the CONFIG utility are Mured here. At present there are only two options. Bit 0, 
if set to 1, indicates that linefeeds which follow carriage returns are not to be output. Setting this bit 
to causes all linefeeds to be output normally. Bit 1 is used to control the simulation of the formfeed 
character (OCH). For printers which do not recognize that code setting this bit to 1 will cause it to 
be simulated by repeated linefeeds. To do this the page length in lines must be know, along with a 
count of how many lines have been printed already. That information is kept in the following two 
fields. Bits 2 through 7 of this byte are not, as yet, used but are reserved for future use. 

PPDLCT - Offset 2 

This contains the count of the number of lines left to print on the current page. It is decremented 
each time a linefeed is sent to the driver, even if the linefeed was not actually performed. Unless bit 
1 of PPDOPT is set this field serves no purpose. It is reset to the value in the next field after each 
Warm Boot. 

PPDPGL - Offset 3 

The number of lines on one page is kept in this byte. Unless changed by CONFIG the default is 66, 
which is a standard eleven inch page at six lines per inch. At Warm Boot and end of page time this 
value is loaded into PPDLCT. 

There are no more fields in the Parallel Printer DCB If you choose to replace this driver you may 
choose to use the existing DCB just so you can have access to the CONFIG settings. 



©(p) Copyright 1985 by Montezuma Micro/JBO - Page 13 



J 



Montezuma Micro CP/M" System Programmer's Manual 




0^ 



7. THE SERIAL PORT DRIVER 

The Serial Port on the Model 4 provides a standard RS-232C interface for external devices. Unfor- 
tunately the only thing standard about RS-232C seems to be which lines: are used for data and ground. 
All others tend to change from one manufacturer to another. We have attempted,to create a driver 
that will deal with as many different configurations as possible, but it is by no means comprehensive. 
In this section we will describe how the DCB is used. Operation of the driver, which is quite short, 
should be apparent from the BIOS listing. As with all the other drivers in this manual, each field is 
listed by name and offset. 

SPDINT - Offset 

This three-byte field is actually an executable Z-80 instruction. It contains a JuMP (opcode C3H) to 
a routine which will initialize the Serial Port and return. We had to provide for this capability since 
a change in Serial Port parameters almost always requires that the port be reinitialized. At this time 
this routine is used by CONFIG and MODKM7 (version 7.31). The initialization routine must end 
with a RET instruction (C9H). 

SPDOPT - Offset 3 

All of the options for the serial port driver are contained in this byte as bit flags. Bit 0, if set, tells the 
driver not to output data until the CTS (Clear To Send) line goes true. Similarly bit 1 is used to 
suspend output until DSR (Data Set Ready) becomes true. Bits 2-7 are reserved, but not in use at 
this time. The CTS and DSR lines of the Serial Port have presented somewhat of a problem for many 
users. On output the RTS (Request To Send) and DTR (Data Terminal Ready) lines must be inverted 
by the software. Since CTS and DSR are essentially the same signals coming from the other end of 
the RS-232 link we also inverted them before testing. This caused problems for many users, especially 
those with serial printers that use the lines for handshaking. To correct the problem we came out 
with version 2.22. The only change in this version from 2.21 was the removal of the XOR 80H fol 
lowing SPBSY in the Serial Port driver, as well as the XOR 40H following SPBSYl. These two 
instructions were removed by storing two bytes of zero (the NOP instruction) over the XORs. 

SPBBDR - Offset 4 

A single byte containing the code to be output to the baud rate generator is stored here. It is actually 
output when SPDINT is called. See the Model 4 Technical Reference Manual (any version) for 
a list of the codes. 

SPDCFG - Offset 5 

When SPDINT is called the byte in this field is output to the UART control register to configure it. 
As with SPBBDR you can get the codes from the Model 4 Technical Reference Manual, 

That's all there is to the Serial Port DCB. Although we do have the hardware handshake problem 
addressed with this driver, it does not handle the common XON-XOFF software protocol used by 
many devices. In any future revision this option would have a high priority. It was omitted due to 
RAM constraints. 
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8. THE MEMORY DISK DRIVE 

One of the features added in release 2 of the CP/M BIOS was the enabling of the Memory Disk (Drive 
M:) automatically at boot time. In release 1 the driversfor the Memory Disk were not part of the 
BIOS, but were loaded externally below the CCP. This was a messy implementation since the CCP 
then had to remain resident, resulting in a smaller TPA, and the system configuration could not be 
saved using CONFIG. By moving the drivers into the BIOS both problems were solved. 

During a CP/M Cold Boot (RESET button) a test is made to see if the system has 128k of memory 
installed. If it does the 64k expansion RAM is filled with E5H bytes to make it appear to CP/M as a 
blank disk, and the DPH for drive M: is installed in the DPH table. When no extra RAM is present 
the entry in the DPH table for drive M: is simply left zero-filled. 

Several users have .requested the ability to leave drive M: in an uninitialized state, so that data could 
be preserved from one boot to another, or even from one DOS to another. Of course this can only 
happen if power has been constantly turned on between boots. By patching a RET instruction (C9H) 
into BOOT2 in the BIOS you can prevent drive M: from being initialized. However this leaves no 
way to ever get it initialized, which must be done when the system is first powered up. In future 
revisions we will probably provide for drive M: to be preserved if we can establish that it contains a 
flag showing that it was set up correctly. 

Other users have asked that drive M: be permanently disabled and not initialized at all. This can be 
done simply by changing the JR NZ (opcode 20H) at location EA8BH on the BIOS listing to JR 
(opcode 18H). Here, too, we will consider implementing this capability on future versions. 

Although the actual drivers for reading and writing to drive M: are quite short they may not be readily 
understandable. The problem is the "magic" that occurs when the expansion RAM is switched in and 
out of the memory map. We used a special 128 byte buffer in the BIOS to hold records on their way 
to or from drive M:. After calculating the expansion bank and RAM address of the desired "sector" 
the required bank is switched into the map at location 0000H. The transfer is made using the BIOS 
buffer, and the bank is switched back out. Because the first 32k is involved in this the BIOS can 
NEVER reside in any part below address 8000H. In other words it must always be in the top 32k of 
RAM. 

This section on the RAM disk has been included mainly for the curious. It is not recommended that 
any tinkering be done on this driver. Those who choose to do so anyway should be warned that some 
products, notably Monte's Window, may fail miserably if the RAM disk is farkled. 
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9. DISK I/O 

The code to control the disk drives is one of the main parts of the BIOS. CP/M is a disk-based 
operating system and makes frequent use of disk drives. Floppy disks are standard on the Model 4/ 
4P, and you may also optionally attach a hard disk drive. Code for the floppy disk is an integral part 
of the BIOS, but hard disk drive require the installation of a separate driver. Since this driver takes 
Ik of space it is necessary to reduce the Temporary Program Area (TPA) of CP/M by Ik with 
MOVCPM to make room for the additional code. 

Although both types of disk drivers will be discussed in this section primary emphasis will be on the 
floppy driver. No listing is provided for the hard disk driver since the code is very much unique to 
the type of hard disk drive used. The hard disk drive DCB will be explained in full. 

* 
9.1. The Floppy Disk Driver . 

The standard disk Model 4/4P comes with two 40 track, single- sided disk drives, and can be equipped 
with two more external drives. One of the primary goals of the BIOS was to support any combination 
of disk drives and as many CP/M disk formats as possible. In this section we will describe the data 
structures used for disk I/O as well as the operation of the Floppy Disk driver itself. 

Access to disk drives in CP/M is made using the Disk Parameter Header (DPH) and the Disk Pa 
rameter Block (DPB). Both of these structures are explained fully in David Cortesi's book Inside 
CP/M, which you got with your copy of CP/M. Our version of CP/M adds a few bytes to the end of 
the DPB and creates a new data structure called the Disk Device Control Block (DCB). 

9.2. DPB Extensions 

The standard CP/M DPB is 15 bytes long. Our additions fields follow the standard ones, preserving 
the original offsets. The added fields are: 

DPBSPT - Offset 15 

This byte contains the number of real sectors per track, NOT the number of 128 byte CP/M sectors 
per track. It is used mainly by external programs such as DUP who need to know this value for 
formatting purposes. 

DPBSSZ- Offset 16 

In this byte is stored a code which indicates the true size of a physical disk sector. Only the four IBM 
standard sizes are supported, using the following values: 



00 = 128 bytes per sector 

01 = 256 bytes per sector 

02 = 512 bytes per sector 

03 = 1024 bytes per sector 



The value in this field is used both externally, mainly for formatting, and internally, in sector 
deblocking. 
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DPBDCB - Offset 17 

This two-byte address points to the Device Control Block (DOB) of the physical disk drive assigned 
to this logical disk drive. By using a pointer, instead of putting the actual drive parameters in the 
DPB, we can assign two or more to the same physical drive. This saves trips to CONFIG when you 
need to use several different disk formats at the same time. 

DPBOPT - Offset 19 

A collection of bit Hags is stored in this byte. These flags are normally set by CONFIG when estab 
lishing a format. Bit assignments are as follows: 

7: Drive density 

0=Single, l=Double 
6; Drive sides 

0=Single sided, 1 = Double sided 
5: Drive stepping 

0=Normal, l=Double step (on 80 track drive) 
4: Data status 

0— Normal, l=Inverted (Superbrain) 
3: Sector numbering on double-sided drive 

0=Same numbers on each side of disk 

l=Side 1 continues where side left off 
2: Track numbering on double-sided drive 

0=Track numbers same on each side 

l=Even tracks on side 0, odd tracks on side 1 
1: Side selection on double-sided drives 

0=Tracks map on alternating sides 

1— Tracks map first on side 0, then on side 1 
0: Track usage on side 1 if bit I is set to ] 

: -Traeks run from track to innei*tu< >st track 

i = Tracks run from innermost irack back to traciu 

!t is our hope that these bits provide the means to accc.-s ;mv t«.r !; si , nc :.. .a i- r how strange. Bits 
and I. were initially unused, due i-.> iiaic:., '; \ ..u tec ' : \r:> ..■ • : K >S p. mnuner that all double- 

sided formats alternated from »ni- ; > \<u v > -■uprae.; -.- . hl-'wr uek. Th.is was particularly 

embarrassing since one of our earlier er si- ■.■„*■■ ■ - \\a) -.var- uaoi.;- \\u *.u*<r>. that didn't follow this 
oat i cm. As a result the necessary c;.d. l< w;- <■''{> ■. h; -. ■■omli* u r> •-.,.-. • u cat oi the BIOS and had to 
be added later using a patch pro-rm- ca»h. o X' ' : 'l f >^ 

Most of the bits in the byte arc used t;> ' in- <i»sk Ari\f i i' m the Kl» >S. Use evl reme care in setting them, 
• ine the driver does not blindly *U* 1 '< ' Si; i .•-•^■cicd i racks :e »! cciors, bu: rather makes decisions 
based on the parameters passed to it and i\. Oa-. t m rhiv!-,c .-. 

DPBDID - Offset 20 

This last byte of the DPB is used to keep track of what format has been assigned to a drive. A value 
of zero is used to signal that the drive is not a floppy disk, although the floppy disk driver pays no 
attention to this field. Values from 1 to 128 refer to entries in the DISK. PDF file. Since that file is 
subject to change this byte may become unexpectedly obsolete and point to the wrong format defi- 
nition. However BIOS space is very tight, and thi^ byte is used by I)lll > and CONFIG only to extract 
the format description for the drive, so the danger is small. 
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9,3. DCB Definitions 

There are four Disk DCBs, one for each of four possible physical drives on the Model 4. Conceivably 
one could add more, but it would serve no practical purpose. Since the DCB is assigned to a logical 
drive by a pointer in the DPB it is possible for one DCB to serve multiple logical drives. 

DKDDVR - Offset 

This first field in the DCB is actually a l\ byte Z80 JP instruction. The first byte is 0C3H, the opcode 
for A I\ followed by the address of UuMlisk driver. We used this technique so that it would be relatively 
easy to add other drives to the system, such as hard disk drives. 

DKDSEL - Offset 3 

Each of the drives on the Model 4 has a unique select address, indicated by setting one of the four 

low order bits. Only one bit should be set in this byte, corresponding to the physical address of the 

drive. 

DKDATT - Offset 4 

In this byte we use bit flags to keep track of the physical attributes of the drive. Bit assignments are: 

7: 0=Single sided drive 

l=Double sided drive 
6: 0=5 1/4 inch drive 

1=8 inch drive 
5: Reserved 
4: Reserved 
3: Reserved 
2: Reserved 
1,0: Drive step rate code 

0=6 ms, 1 = 12 ms, 2=20 ms, 3=30 ms 

These bits are normally set by the CONFIG utility. 

DKDSTD - Offset 5 

This byte contains the start-up delay time for the drive in quarter seconds. It is arbitrarily set at 2, 
which gives 1/2 second of delay. This byte cannot be set by CONFIG, but must be set using DDT. 

DKDSTL - Offset 6 

After a seek operation it is necessary to give the head t ime to settle before attempting to read or write. 
The required settle time i milliseconds is stored here, initially set at 15. This byte cannot be changed 
except by direct patch. 

DKDNTK - Offset 7 

The number of tracks that a drive can physically access is stored here. The driver will not step to any 
track beyond this limit. 
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DKDPTO - Offset 8 

Since the disk controller in the Model 4/4P has write precompensation controlled by software the 
driver must know when to turn it on. The value is not arrived at scientifically, but more by divine 
inspiration. In his experience the author has not had any problems using half the number of tracks 
plus 2, so that "magic" number is used here. 

DKDCTK - Offset 9 

With the potential for up to four drives in the system it is necessary for the driver to reset the current 
track in the disk controller when changing drives. The current track value is stored here, and is ' 
normally not written to. One exception is at cold boot time when OFFH is written in this field for 
each DCB. A value of OFFH forces the driver to restore the drive prior to doing any disk I/O. 

DKDCSL - Offset 10 

In addition to selecting a disk drive the hardware drive select register also sets the density, write 
precompensation, and side for the drive being accessed. Once all this information has been collected 
it is stored here for "refreshing " the drive select register. 

DKDLTK - Offset 1 1 

Most of the time the track number recorded on the disk will correspond to the track number that the 
drive read/write head is positioned over. On those occasions where this is not the case, e.g. an 80 track 
drive used with a 40 track format, this byte holds the logical track that is expected on the disk. 



Although this DCB is used only by the BIOS Floppy Disk Driver and the CONFIG utility, it should 
not be changed. For other disk drivers you may want to create a DCB which meets the requirements 
of the drive. This was done when adding hard disk drives to CP/M. 

9.4. Using the Disk Driver 

It is quite possible to use the BIOS Floppy Disk Driver in external programs. The driver is capable 
of reading or writing a sector, but does not contain code for more exotic functions such as format. 
The calling setup is as follows: 

A Contains function code 

1 = Read sector 

2 = Write sector 

BC Contains track number (B should always be 0) 
DE Contains sector number (D should always be 0) 

This is the actual sector, i.e. interleave must 

already be figured before calling the driver. 
HL Contains address of data buffer 
IX Contains address of DCB for selected drive 
IY Contains address of DPB for selected drive 

On return the A register contains the status read from the 17xx disk controller status register. All 
non-error bits are masked off so only error conditions need be checked for. 
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When using this driver on double-sided disk drives you must be aware that the controller will deter- 
mine for itself what track, sector, and side to access. This decision will be based on the rules established 
in field DPBOPT of the DPB pointed to by the IY register. Study this field carefully and set your 
track and sector numbers accordingly. 

9.5. EXBIOS - Extending the BIOS 

9 

As mentioned earlier all possible methods of accessing a disk in CP/M were not handled in the original 
BIOS. When this fact became known it was not possible to fix the problem with a simple patch due 
to the fact that the BIOS filled all but 3 bytes of the two tracks originally reserved for the system. 
The idea of adding another reserved track was rejected, due to the potential problems that it could 
cause for existing users. Therefore we decided to create a small program that would install the fix into 
BIOS memory after the system was booted, since it would remain in place until the next full reset. 

The instruction where EXBIOS is "hooked" in is shown in the listing of the Floppy Disk Driver, 
after the label FDBEGN. At the end of the listing the code for the BIOS extension is given. Note that 
the CONFIG utility knows about EXBIOS and will remove it before saving the configuration to disk. 
This must be done since the portion of memory that the extension resides in will never be saved in 
the two reserved tracks. In the next revision this code will be absorbed back into the BIOS where it 
belongs. 

9.6. The Hard Disk Driver 

As good as CP/M is, the use of a hard disk drive makes it even better. With disk space in the millions 
of bytes instead of thousands you can have all of your favorite software available at once. Even better, 
programs load many times faster and all disk I/O is generally faster. 

Like all good things, this convenience carries a price. Since a hard disk drive is not a part of the 
standard Model 4/4P computer it must be purchased separately. There are dozens of possible config- 
urations, so the code to access the hard disk cannot be economically contained in the BIOS. 
MOVCPM is used to make a smaller CP/M (no larger than 63k) so that the extra space at the top of 
memory can be used for the hard disk driver code. 

Montezuma Micro offers hard disk drivers for a broad range of hard disk drives, and the code varies 
according to the type of controller and drive used. For the convenience of external programs we have 
kept the DPB for hard drives the same as for floppies. The only real difference is in the DPBDID 
field, which is always set to for a hard disk. Only the memory disk, drive M:, can have a format ID 
of 0. 



tf\ 



The fields of the hard disk drive DCB are unique to that device, although the first field must be the 

same as that of the floppy disk drive. This is the only link that the BIOS has to the device driver. 

Here are the fields: 

DKDD VR - Offset 

Like the floppy disk driver, this field is actually a 3 byte JP instruction to the driver routine. The 

first byte contains 0C3H, and the last two contain the address of the entry point of the hard disk 

driver. 
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DKDSEL - Offset 3 

This byte contains the drive select bits for the hard disk drive. The actual bit usage will vary from 
one controller to another, and is of Importance only to the driver itself. 

DKDCYL - Offset 4 

This is a two-byte field containing the 16-bit count of cylinders on the hard disk. CP/M is oblivious 
to the cylinder concept and works only with tracks. Head positioning on hard disk drives, however, 
is done by cylinders. Some drivers use this field, others don't. We recommend that it be kept at this 
location in the DCB for the convenience of external utilities that may need such information. 

DKDOFF - Offset 6 

In this two-byte field is kept the 16-bit count of CP/M tracks that precede this logical drive on the 
physical hard drive. At first glance this might appear to be the same thing as field DPBOFF, but that 
field cannot be used if drive A: is to be located on any track but the very first track of the hard drive. 
To avoid such restrictions we let CP/M think that each logical hard drive is an entity all to itself, and 
use the DCB to sort out who lies where. 

The above fields are more or less standard for our drivers. Some drivers may have additional fields 
in the DCB, but these are for driver use only. Any drivers of your own creation should include these 
standard fields as a minimum. Also your driver MUST use the same calling sequence as the floppy 
driver, with regard to registers, etc. If it doesn't the BIOS will not be able to call it correctly. 
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10. CP/M BOOTS 

In addition to providing I/O drivers for CP/M the BIOS performs one other critical function, that of 
bootstrap loading the operating system. The term "boot" comes from the phrase "pulling yourself up 
by your own bootstraps." When the Model 4/4P is first powered up there is no software in RAM. The 
first level of boot is the ROM, which reads track 0, sector 1, of disk drive into RAM beginning at 
4300H. This sector must be in double density. It may be any length, although the 4P will insist on 
first loading the ROM image for any ize other than 256 bytes. 

In CP/M there are two boot processes generally referred to as the Cold Boot and the Warm Boot. The 
Cold Boot is so named because it is activated when the machine is first turned on, i.e. is still "cold." 
At other times,usually between programs, a Warm Boot is performed. While the Cold Boot loads the 
entire CP/M operating system, including the BIOS, the Warm Boot loads only the CCP and the 
BDOS. The remainder of this section will discuss each of these two routines. 



10.1. The Cold Boot 

Once the boot sector has been loaded it will proceed to load the CCP, BDOS, and BIOS into their 
designated locations. Control is then given to the first BIOS vector, which in turn transfers to the 
label BOOT in the listing. The system stack is established at address 0000H. At first glance this may 
appear strange, but in fact when the stack is written to it is first decremented. This results in the 
stack pointer "wrapping around" to the top of memory so that the data is actually written t OFFFFH 
downward. 

;' / 

^ \y The first order of business is do a complete reset of all I/O devices, mainly to initialize the associated 

DCBs, as well as to clear the RAM work areas used by the BIOS. Next drive A: is made the current 
drive, and the current track number is set invalid on all floppy drives. Drives A:, B:, C:, and D: are 
set up in the DPH table. 

The next routine has been subject to some criticism by CP/M users. It first tests for the presence of 
the 128k RAM option. If found all 64k of the expansion RAM is set to 0E5H and drive M: is entered 
into the DPH table. Many users have requested that the RAM drive be formatted (i.e. filled with 
0E5H bytes) ONLY if it is found to be corrupt. At present such a -test would require a major change 
in the BIOS and more memory than is currently available. However we will consider this in the next 
revision. 

Finally, if configured for it, the Told Bool, disphys (he opening "banner" announcing the CP/M size 
and version. Control then passes to the CCP, which; issues the "A>" prompt and begins CP/M op 
eration. If the system was booted from .a hard drive (Model 4P with Radio Shack hard disk only) the 
jump to the CCP is patched to return Urlhe hard drive boot. There the DPH table is modified to 
reflect the drive configuration, both floppy and hard, and then the jump is made to the CCP. 



10.2. The Warm Boot 

Like the Cold Boot, the first thing the Warm Boot must do is to establish a stack. However this stack 
runs from 0080H to 00FFH. It cannot reside in high memory due to the use of the last 128 bytes by 
the disk I/O routines for internal stack space. 
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Next it clears the BIOS disk buffer. This step is very important, since different sizes of disk sectors 
are used. It is possible for a program to terminate with a write operation pending on the sector cur- 
rently in the disk buffer. By making this call the Warm Boot can be sure that all pending writes have 
been serviced. 

Next a "warm' ' reset is done. Essentially this just resets the device drivers. 

The remainder of the Warm Boot code reloads the CCP and the BDOS from drive A:. Loading begins 
at track 0, CP/M sector 2, using the assumption that the DPB for A: contains valid information for 
deblocking. Some CP/Ms access the system tracks in a different manner from the rest of the disk 
(including version l.xx of ours), but we have chosen to be consistent throughout the disk. It makes 
utility writing so much easier. 
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1 1 . PITFALLS AND TRAPS 

After examining what we have done in the BIOS you may be filled with an urge to improve on it. 
Before you go wading in with a flailing text editor we'd like to tip you off to a few things. 

11.1. INTERRUPTS 

Interrupts are truly wonderful things. With interrupts one computer can be made to appear to be 
doing several things at once. Then again they can also cause disasters of truly epic proportions, as 
well as introduce bugs that are tougher to kill than a New York Cockroach. 

We have chosen not to implement interrupts in the BIOS. Why not? Well the first reason is the Model 
/4P hardware. It dictates that maskable interrupts will generate a ReSTart to location 38H. Coin- 
cidentally this is also RST 7 on the 8080, and it is used by some CP/M software, most notably DDT 
and other debug utilities. While we could release our CP/M with a modified version of DDT it is 
certain that other programs out there also use RST 7. One of the main goals for our CP/M was to be 
compatible with the rest of the world, and a conflict over a ReSTart address would make that goal 
unattainable. 

A second reason for not interrupting has to do with memory management. The Model 4/4P has all 
sorts of memory map possibilities. Interrupting when the wrong map was in could create disaster, so 
elaborate locking schemes would be necessary to keep them turned off at critical times. This would 
mean a much larger BIOS, one which was not as robust. 

What do we lose by not having interrupts? A keyboard type-ahead buffer is more difficult to do (but 
not impossible). A steady blinking cursor is real tough, and background I/O such as serial commu 
nications is all but impossible. This is only a partial list. There may be other things, too. Systems 
software is a constant trade-off situation. We are happy with the choices we have made. 

11.2. FEATURES UNIQUE TO THE Z80 

While thumbing through the listing you Z80 gurus may begin thinking "Hey, I could shorten this 
code up by using the IX register here, and the alternate registers there." No doubt you are right, but 
we have tried to avoid using Z80 features just because they are there. 

In the early days of CP/M all programs were written for the 8080 and it was perfectly safe to use Z80 
features without fear of overlap. This is no longer true. Newer programs, such as Turbo Pascal, use 
ALL of the Z80 features. Using them in the BIOS could lead to surprise crashes on a massive scale. 
Help stamp out unscheduled Cold Boots and be very conservative in your code. 



®(p) Copyright 1985 by Montezuma Micro/JBO - Page 27 



Montezuma Micro CP/M* System Programmer's Manual 



yz 



V. 



11.3. RAM USAGE 

While perusing CP/M literature you may notice the odd bit of RAM that is reserved for, but not used 
by, our BIOS. One example of this is locations 0040H through 004FH. It is reserved for the BIOS, 
but not referenced at all by ours. 

Using this area would be unwise, however, because Monte's Window uses the fool out of it. There are 
other, little cracks and crevices in the RAM above and below the BIOS. Enhancement architects are 
always looking for little crannies to stick their constructions into. Be very, very careful about using 
these since we sometimes need RAM, too, and we don't know or care what you have used a RAM 
"hole" for. 
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Assembler: 1 

B 

BIOS: 1, 3, 4, 6, 7, 9, 10, 11, 12, 13, 15, 17, 19, 20, 
22, 23, 24, 25, 26, 27, 28, 31 
Boot: 3, 4, 13, 17, 22> 23, 25, 26, 27 

Cold: 17,22,25,26,27 

Wurm:3, 13,25,26 

D 

DCB: 4, 9, 10, 11, 12, 13, 15, 19, 20, 21, 22, 23, 24, 

25 

Device control block: 4, 9, 13, 19, 20 

Device driver: 4, 7, 23 

Device driver address table: 4 
Device Parameter Block: 19 

DPB: 19, 20, 21, 22, 23,24,26 
Device Parameter Header: 3 

DPH: 3, 4, 17, 25 
Disk I/O: 4, 19, 23, 26 



E 



EXBIOS: 20, 23 



K 

Keyboard driver: 4, 6, 9, 10 
CAPS lock: 10 
Key definitions: 10 



Logical device: 5, 6 

M 

Memory disk: 17,23 



Parallel printer driver: 13 
Physical device: 5, 6 



Serial port driver: 15 
SPB:3, 4, 7, 11, 15 
System Parameter Block: 3 

BIOS version: 1 

Boot display: 25 

Disk DCB: 4, 21 

DPH table: 4, 17, 25 



Floppy disk driver: 19, 22, 23 
Function keys: 9, 10 

H 

Hard disk driver: 4, 19, 23 

I 

Initialization: 15 
Installation: 4, 7, 19 
Interrupts: 27 
IOBYTE: 3, 4, 5 



Video Display DCB: 11 
Control codes: 11, 12 
Cursor: 4, 11,27 



Z80 features: 27 
Z80 mnemonics: 1 
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Montezuma Micro CP/M' System Programmer's Manual 



i 



13. THE LISTING 

If you're a true System Programmer you've probably already been through the listing of the BIOS 
before reading the text. You may have noticed that there are some routines missing. For the most 
part these are mundane little service routines that are not significant to the operation of the BIOS 
as a whole. Our intent with this manual was not to give you every last byte of source code, but rather 
a tool with which you could interact with the BIOS. 

The bottom line is "This is it!". Please don 't write or call us with sad stories about why you need 
this unpublished routine or that undocumented code. You won't get it. We have a lot of time and 
money invested in bringing our CP/M this far. Modesty tells us that it could be improved, but good 
business sense tells us that we should reserve the first option for making those improvements. 



if 



\ 



/ 
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Cijpp n«u* Mjop nn^iw njJtnuLLix 



.IW1UH 



£ 



i> 



I 



INPUT FILENAME 
OUTPUT FILENAME 



BIOS. ASM 
BIOS. OBJ 



TRS-80 Model 4 BIOS Version 2.00+ General Definitions 

Copyright (c) (p) 1984 
Montezuma Micro 
P. 0. Box 763009 
Dallas, TX 75376-3009 



00 04 


00 D4 


06 DC 


00 EA 


40 00 


00 00 


03 00 


04 00 


80 00 


2C 00 



84 00 


90 00 


E0 00 


E4 00 


E8 00 


E9 00 


EA 00 


EB 00 


EC 00 


F0 00 


Fl 00 


F2 00 


F3 00 


F4 00 



F8 00 



8E 00 
8F 00 



All rights reserved 

This BIOS is written for Montezuma Micro CP/M 2.2. 

********************************************************** 

* CP/M address constants * 

********************************************************** 



BASE 

CCP 

BDOS 

BIOS 

MSIZE 



EQU 
EQU 
EQU 
EQU 
EQU 



0D400H ;Base for 64K system 
BASE ;Base of CCP 

CCP+806H ;Base of BDOS 
CCP+1600H ;Base of BIOS 
(BIOS+1200H)/1024+1 ;Memory size in K 



bytes 



; »-— > WARNING: BIOS must be 8000H or higher! 



WBJP 

IOBYTE 

CDISK 

DEFBUF 

NRECS 



EQU 
EQU 
EQU 
EQU 
EQU 



0000H 
0003H 
0004H 
0080H 
(BI0S-CCP)/128 



;BI0S Warm boot vector 
; System I/O byte 
;System current disk drive 
;Default disk buffer 
;Number of warm boot recs 



************************************************* 

* Model 4 port addressess * 
********************************************************** 

;Memory mapping port 

;Sound control port 

; Interrupt control port 

;Non-maskable interrupt Ctrl 

;Serial port reset 

; Serial port baud rate gen. 

;Serial port UART ctl/status 

;Serial port data 

;Miscellaneous function port 

;Disk command/status 

;Disk track 

;Disk sector 

;Disk data 

;Disk select 

;Para11el port status/data 

********************************************************** 

* Model 4 data constants * 
********************************************************** 



MEMCTL 


EQU 


84H 


SOUND 


EQU 


90H 


INTCTL 


EQU 


0E0H 


NMICTL 


EQU 


0E4H 


SERRST 


EQU 


0E8H 


SERBRG 


EQU 


0E9H 


SERURT 


EQU 


0EAH 


SERDAT 


EQU 


0EBH 


MISCTL 


EQU 


0ECH 


FDCCTL 


EQU 


0F0H 


FDCTRK 


EQU 


0F1H 


FDCSEC 


EQU 


0F2H 


FDCDAT 


EQU 


0F3H 


FDCSLL 


EQU 


0F4H 


PARSDT 


EQU 


0F8H 



KVMIN EQU 
KVMOUT EQU 



8EH 
8FH 



; Keyboard/Video mapped in 
; Keyboard/Video mapped out 



TRS-80 Model 4 BIOS Version 2.00+ Entry vectors & configuration data 

* 

EA00 ' ORG BIOS ;Start BIOS code 

* 

. ********************************************************** 

; * Standard BIOS jump vectors * 

. ********************************************************** 
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IRW 


LJ 


HB 


trt 


EA03 


CO 


61 


EB 


EA06 


C3 


00 


EB 


EA09 


C3 


F2 


EB 


EA0C 


C3 


02 


EC 


EA0F 


C3 


1A 


EC 


EA12 


C3 


3E 


EC 


EA15 


C3 


52 


EC 


EA18 


C3 


E5 


Fl 


EA1B 


C3 


78 


Fl 


EAiE 


C3 


93 


Fl 


EA21 


C3 


9C 


Fl 


EA24 


C3 


DD 


Fl 


EA27 


C3 


ED 


Fl 


EA2A 


C3 


24 


F2 


EA2D 


C3 


2C 


EC 


EA30 


C3 


E2 


Fl 



uoia start 
Warm start 
Console status 
Consojle character in 
ConsoUe character out 
List character out 
Punch* character out 
Reader character in 
Restore disk drive 
Select disk drive 
Set track number 
Set sector number 
Set DMA address 
Read disk 
Write disk 
List status 
Sector translation 



***************************************^ 



Of 


BUUI 


JP 


WBOOT 


JP 


CONST 


JP 


CONIN 


JP 


CONOUT 


JP 


LIST 


JP 


PUNCH 


JP 


READER 


JP 


HOME 


JP 


SELDSK 


JP 


SETTRK 


JP 


SETSEC 


JP 


SETDMA 


JP 


READ 


JP 


WRITE 


JP 


LISTST 


JP 


SECTRN 



>^A) 



* System Parameter Block 

* This block is used to contain configuration data of 



* 
* 
* 

* external routines that may need to modify it. * 
********************************************************** 



a general nature that is required by the BIOS 
external routines that may need to modify it. 



and 



33 EA 

EA33 81 

EA34 FF 

EA35 02 

EA36 22 

EA37 FD F6 

EA39 55 F6 

EA3B 61 F6 

EA3D 6D F6 

EA3F 79 F6 

EA41 73 EC 

EA43 9A EE 

EA45 8D F0 

EA47 24 Fl 

EA49 72 Fl 



SPB EQU 


$ 


SPBIOB DEFB 


81H 


SPBSOM DEFB 


0FFH 


DEFB 


2 


DEFB 


22H 


DEFW 


DPHTBL 


DEFW 


D0DCB 


DEFW 


D1DCB 


DEFW 


D2DCB 


DEFW 


D3DCB 


DEFW 


DDATBL 


DEFW 


KBDCB 


DEFW 


VDDCB 


DEFW 


PPDCB 


DEFW 


SPDCB 



IOBYTE: LPT,TTY,TTY,CRT +0 

Display sign-on at boot +1 

Total # of disk drives +2 

BIOS version number +3 

DPH table address +4 

Disk DCB address +6 

Disk DCB 1 address +8 

Disk DCB 2 address +10 

Disk DCB 3 address +12 

Device Driver Address +14 

Keyboard DCB +16 

Video Display DCB +18 

Parallel Port DCB +20 

Serial Port DCB +22 




TRS-80 Model 4 BIOS Version 2.00+ Boot routines 



* BIOS Cold Start entry * 

Input: None. * 

Output: None - System loaded into RAM * 






EA4B 


31 00 00 


EA4E 


CD D3 EC 


EA51 


AF 


EA52 


32 04 00 


EA55 


32 3F EB 


EA58 


3D 


EA59 


32 5E F6 


EA5C 


32 6A F6 


EA5F 


32 76 F6 


EA62 


32 82 F6 


EA65 


21 9C F5 


EA68 


01 10 00 


EA6B 


22 FD F6 


EA6E 


09 


EA6F 


22 FF F6 


EA72 


09 



BOOT 



LD 
CALL 

XOR 

LD 

LD 

DEC 

LD 

LD 

LD 

LD 

LD 

LD 

LD 

ADD 

LD 

ADD 



SP.0000H 
CRESET 



(CDISK).A 
(BANNRM),A 



(D0DCB+DKDCTK),A 
(D1DCB+DKDCTK),A 
(D2DCB+DKDCTK),A 
(D3DCB+DKDCTK),A 

HL.DPHA 

BC.16 

(DPHTBL), HL 

HL.BC 

(DPHTBL+2),HL 

HL.BC 



;Set stack at top of RAM 
;Do a complete reset 

;Current drive/USER=A/0 

;Kill drive M message 

;Reset drive track history 



Point HL at first DPH 

BC=length of DPH 

Set Drive A in DPHTBL 

Drive B 
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J 




4y 



tA/J 


U )fll 


VI 




LU 


\uvmoLfHj,nL ; 


urive l 


EA76 


09 






ADD 


HL.BC 




EA77 


22 03 


F7 




LD 

* 


(DPHTBL+6),HL ; 


, Drive D 


EA7A 


21 00 00 




LD 


HL,0000H ; 


.Point to start of RAM 


EA7D 


3E EF 






LD 


A , KVMOUT+60H ; 


.Switch in expansion bank 


EA7F 


D3 84 






OUT 


(MEMCTL).A 




EA81 


36 3C 






LD 


(HL),3CH ; 


.Plug with inversion of C3H 


EA83 


3E 8F 






LD 


A , KVMOUT 


.Switch back to main RAM 


EA85 


D3 84 






OUT 


(MEMCTL).A 




EA87 


7E 






LD 


A,(HL) ; 


.Get test byte 


EA88 


36 C3 






LD 


(HL),0C3H 


;Replace in case it changed 


EA8A 


BE 






CP 


(HL) 


;Is it unchanged? 


EA8B 


20 IE 






JR 


NZ, BOOTl : 


;Go if changed - not 128K 


EA8D 


3E EF 






LD 


A , KVMOUT+60H 


iSwitch in expansion bank 


EA8F 


D3 84 






OUT 


(MEMCTL).A 




EA91 


CD BA 


EA 




CALL 


B00T2 


;Fill 32K with E5 bytes 


EA94 


29 






ADD 


HL.HL 


iSet HL back to 0000H 


EA95 


3E FF 






LD 


A.KVMOUT+70H 


;Switch in expansion bank 1 


EA97 


D3 84 






OUT 


(MEMCTL).A 




EA99 


CD BA 


EA 




CALL 


BOOT2 


; Fi 1 1 32K with E5 bytes 


EA9C 


3E 0D 






LD 


A,0DH 


;Enable drive M message 


EA9E 


32 3F 


EB 




LD 


(BANNRM).A 




EAA1 


21 DC 


F5 




LD 


HL.DPHM 


;Set up DPH for M: 


EAA4 


22 15 


F7 




LD 


(DPHTBL+24),HL 


# • 


EAA7 


3E 8F 






LD 


A, KVMOUT 


; Restore lower RAM map 


EAA9 


D3 84 






OUT 


(MEMCTL).A 




EAAB 


21 C2 


EA 




BOOTl LD 


HL, BANNER 


;Point to opening banner 


EAAE 


3A 34 


EA 




LD 


A.(SPBSOM) 


;Check the signon flag 


EAB1 


B7 






OR 


A • 




EAB2 


C4 08 ED 




CALL 


NZ.DISPLY 


;Di splay if requested 


EAB5 


0E 00 




t 


LD 


C0 


;Set default drive to A: 


EAB7 


C3 00 D4 




JP 

• 


CCP 


;Go to CP/M 


Lnun 


36 E5 






B00T2 LD 


(HL),0E5H 


; Store an E5 byte 


EABC 


23 






INC 


HL 


;Advance pointer 


EABD 


CB 7C 






BIT 


7,H 


;Check bit 7 of address 


EABF 


C0 






RET 


NZ 


;Exit if at 32K 


EAC0 


18 F8 






JR 


B00T2 


;Keep filling 




1A 07 


16 




; CP/M signon 


banner 




EAC2 


BANNER DEFB 


1AH.07H.16H 




EAC5 


54 52 


53 


2D 


DEFB 


'TRS-80 Model 4 


i 


EAC9 


38 30 


20 


4D 








EACD 


6F 64 


65 


6C 




. 




EAD1 


20 34 


20 










EAD4 


36 34 






DEFB 


MSlZE/10+ , 0' ,MSIZE.MOD.10+'0' 


EAD6 


6B 20 


43 


50 


DEFB 


'k CP/M vers 2.2 


i 


EADA 


2F 4D 20 


76 








EADE 


65 72 


73 


20 








EAE2 


32 2E 


32 


20 




- 




EAE6 


28 63 


29 


20 


DEFB 


'(c) (p) 1982 Di 


gital Research Inc. ' 


EAEA 


28 70 29 20 






*# 


EAEE 


31 39 


38 


32 








EAF2 


20 44 


69 


67 








EAF6 


69 74 


61 


6C 








EAFA 


20 52 


65 


73 








EAFE 


65 61 


72 


63 








EB02 


68 20 


49 


6E 


* 






EB06 


63 2E 












EB08 


15 0D 0A 




DEFB 


15H,0DH,0AH 


r 


EB0B 


42 49 


4F 


53 


DEFB 


'BIOS vers 2.20 


i 


EB0F 


20 76 65 72 








EB13 


73 20 


32 


2E 
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L.U 1/ 



jo op C-V 



EB1A 


28 


63 29 20 


DEFB 


EB1E 


28 


70 29 20 




EB22 


31 


39 38 34 




EB26 


20 


4D '6F 6E 




EB2A 


74 


65 7A 75 




EB2E 


6D 


61 20 4D 




EB32 


69 


63 72 6F 




EB36 


2F 


4A 42 4F 




EB3A 


15 


16 00 0A 


DEFB 


EB3E 


0A 




t 


EB3F 


00 




BANNRM DEFB 


EB40 


3E 


3E 3E 20 


DEFB 


EB44 


40 


65 60 6F 




EB48 


72 


79 20 44 




EB4C 


72 


69 76 65 




EB50 


20 


4D 3A 20 




EB54 


16 


45 4E 41 


DEFB 


EB58 


42 


4C 45 44 




EB5C 


16 






EB50 


0D 0A 0A 00 


DEFB 



'(c) (p) 1984 Montezuma Micro/JBO' 



y; 



15H,16H,0DH,0AH,0AH 



'»> Memory Drive M: ' 



EB61 31 00 01 



16H,' ENABLED', 16H 



0DH,0AH,0AH,0 

************************************************* 

* BIOS Warm Start entry * 

Input: None 
Output: None - System reloaded into RAM 



* Tnnnt • Nnno * 

* Output: None - System reloaded into RAM * 

********************************************* 



WB00T 



EB64 


CD 07 


F3 


EB67 


CD 


E0 


EC 


EB6A 


0E 


00 




EB6C 


CD 


78 


Fl 


EB6F 


01 


0A 00 


EB72 


09 






EB73 


7E 




t 


EB74 


23 




J 


EB75 


66 






EB76 


6F 






EB77 


7E 






EB78 


23 






EB79 


66 






EB7A 


6F 






EB7B 


22 


34 


F7 


EB7E 


21 


00 


00 


EB81 


22 


30 


F7 


EB84 


2E 


02 


• 


EB86 


22 


32 


F7 


EB89 


21 


00 


D4 


EB8C 


22 


25 


F7 


EB8F 


06 


2C 




EB91 


C5 






EB92 


ED 


4B 


30 F7 


EB96 


CD 


93 


Fl 


EB99 


ED 


4B 


32 F7 


EB9D 


CD 


9C 


Fl 


EBA0 


CD 


ED 


Fl 


EBA3 


B7 






EBA4 


20 


BB 




EBA6 


21 


30 


F7 


EBA9 


CD 


90 


F2 


EBAC 


2A 


25 


F7 


EBAF 


01 


80 00 


EBB2 


09 






EBB3 


22 


25 


F7 



WB00T1 



LD 


SP.DEFBUF+128 


;Use buffer for stack 


CALL 


CLBUF 


;Clear the BIOS disk bu 


CALL 


WRESET 


;Do a warm reset 


LD 


c,0- 


; Select drive A: 


CALL 


SELDSK 


« 


LD 


BC.DPHDPB 


;Point HL at DPB 


ADD 


HL.BC 




LD 


A,(HL) 




INC 


HL 




LD 


H,(HL) 




LD 


L,A 




LD 


A,(HL) 


;Records/track to HL 


INC 


HL 




LD 


H,(HL) 




LD 


L,A 




LD 


(DSBRPT),HL 


;Save it 


LD 


HL,0 


;Set starting track 


LD 


(DSBNTK).HL 


. %j 


LD 


L,2 


;Set up starting sector 


LD 


(DSBNSC).HL 


* %r 


LD 


HL.CCP 


;Set beginning DMA 


LD 


(DSBDMA).HL 




LD 


B.NRECS 


;Set record counter 


PUSH 


BC 


;Save record counter 


LD 


BC(DSBNTK) 


;Set the track 


CALL 


SETTRK 




LD 


BC.(DSBNSC) 


;Set the sector 


CALL 


SETSEC 




CALL 


READ 


;Read the record 


OR 


A 


;Any error? 


JR 


NZ.WBOOT 


;If so start all over 


LD 


HL.DSBNTK 


;Update sector # 


CALL 


NXTSEC 




LD 


HL.(DSBDMA) 


;Update DMA 


LD 


BC.128 




ADD 


HL.BC 




LD 


(DSBDMA),HL 





<o> ' i 




Page 36 - ©(p) Copyright 1985 by Montezuma Micro/JBO 



* 



EBB6 


CI 


EBB7 


10 D8 


EBB9 


3A 04 00 


EBBC 


E6 0F 


EBBE 


4F 


EBBF 


CD 78 Fl 


EBC2 


7C 


EBC3 


B5 


EBC4 


20 03 


EBC6 


32 04 00 


EBC9 


3A 04 00 


EBCC 


4F 


EBCD 


C3 03 D4 



i 



i 

:4^ 



WB00T3 



POP 

DJNZ 

LD 

AND 

LD 

CALL 

LD 

OR 

JR 

LD 

LD 

LD 

JP 



BC 

WBOOT1 

A.(CDISK) 

0FH 

C,A 

SELDSK 

A,H 

L 

NZ.WB00T3 

(CDISK).A 

A.(CDISK) 

C,A 

CCP+3 



; Restore record counter 
;Loop until complete 
;Get current drive # 
;Mask off user code 
; Drive # to C 
;Select it (validate) 
;Check for validity 

;Go if valid drive 
;Reset to USER 0, A: 
;Set User/Default Drive 

;Go to CCP 



TRS-80 Model 4 BIOS Version 2.00+ I/O routines for CON: device 



* 
* 

* 



* Report console status 

* Input: None 



* Output: A=FFH if input present 

* 00H if no input present 



EBD0 


CD 12 EC 


EBD3 


28 0B 


EBD5 


CD 64 EC 


EBD8 


73 EC 


EBDA 


7B EC 


EBDC 


CB EC 


EBDE 


83 EC 


EBE0 


3A 03 00 


EBE3 


0F 


EBE4 


0F 


EBE5 


E6 03 


EBE7 


CD 64 EC 


EBEA 


73 EC 


EBEC 


9B EC 


EBEE 


A3 EC 


EBF0 


AB EC 



CONST 



C0NST1 



CALL 

JR 

CALL 

DEFW 

DEFW 

DEFW 

DEFW 

LD 

RRCA 

RRCA 

AND 

CALL 

DEFW 

DEFW 

DEFW 

DEFW 



CONIOB 

Z,C0NST1 

IODSP 

TTYSTS 

CRTSTS 

NULSTS 

UC1STS 

A,(I0BYTE) 



03H 

IODSP 

TTYSTS 

PTRSTS 

UR1STS 

UR2STS 



Get CON IOBYTE 
Go if BAT status 
Call I/O dispatcher 

TTY status 

CRT status 

BAT status (Dummy entry) 

UC1 status 
Get the IOBYTE 
Isolate RDR bits 



Call I/O dispatcher 
TTY status 
PTR status 
UR1 status 
UR2 status 



********************************************************** 

* Console input * 

Input: None 

Output: A-Character input from console 
********************************************************** 



* 
* 



* 
* 



EBF2 


CD 12 EC 


EBF5 


28 5B 


EBF7 


CD 64 EC 


EBFA 


75 EC 


EBFC 


7D EC 


EBFE 


CD EC 


EC00 


85 EC 



CONIN 



CALL 

JR 

CALL 

DEFW 

DEFW 

DEFW 

DEFW 



CONIOB 

Z, READER 

IODSP 

TTYINP 

CRTINP 

NULINP 

UC1INP 



Get CON IOBYTE 

Go if BAT 

Call I/O dispatcher 

TTY input 

CRT input 

BAT input (Dummy entry) 

UC1 input 



********************************************************** 



* Console output 

* Input: C=Character to be output to console 



* 

* 

* Output: None * 

********************************************************** 



EC02 


CD 12 EC 


EC05 


28 13 


EC07 


CD 64 EC 


EC0A 


77 EC 


EC0C 


7F EC 


EC0E 


CC EC 


EC10 


87 EC 



CONOUT 



CALL 


CONIOB 


JR 


Z.LIST ; 


CALL 


IODSP 


DEFW 


TTYOUT 


DEFW 


CRTOUT ; 


DEFW 


NULOUT 


DEFW 


UCIOUT ; 



Get CON IOBYTE 

Go if BAT 

Call I/O dispatcher 

TTY output 

CRT output 

BAT output (Dummy entry) 

UC1 output 
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********************************************************** 







; * Return CON 


IOBYTE value * 






; * Input: 


None * 






; * Output: 


A=CON iobyte value, Z flag set if BAT * 






. ****************************^ 


EC12 


3A 03 00 


CONIOB LD 


A, (IOBYTE) ;Get the IOBYTE 


EC15 


E6 03 


AND 


03H , ; Isolate CON bits 


EC17 


FE 02 


CP 


02H ;Check for BAT 


EC19 


C9 


RE I 





^Jj 



TRS-80 Model 4 BIOS Version 2.00+ I/O routines for LST: device 



*************************************************** 



* 
* 

* Output: None * 

********************************************************** 



* Output character to LST device 

* Input: C=character to be output 



EC1A 


3A 03 00 


EC1D 


07 


EC1E 


07 


ECLF 


E6 03 


EC21 


CD 64 EC 


EC24 


77 EC 


EC26 


7F EC 


EC28 


8F EC 


EC2A 


97 EC 



LIST LD A, (IOBYTE) ;Get the IOBYTE 

; Isolate LST bits 



LD 


A, (IOBYTE) 


RLCA 




RLCA 




AND 


03H 


CALL 


IODSP 


DEFW 


TTYOUT 


DEFW 


CRTOUT 


DEFW 


LPTOUT 


DEFW 


ULIOUT 



EC2C 


3A 03 00 


EC2F 


07 


EC30 


07 


EC31 


E6 03 


EC33 


CD 64 EC 


EC36 


79 EC 


EC38 


81 EC 


EC3A 


91 EC 


EC3C 


99 EC 



Call I/O dispatcher 
TTY output 
CRT output 
LPT output 
UL1 output 

********************************************************** 

* Return LST status * 

* Input: None * 

* Output: A=LST status * 
********************************************************** 

LISTST 



LD 


A, (IOBYTE) 


;Get the IOBYTE 


RLCA 




; Isolate LST bits 


RLCA 
AND 


03H 




CALL 


IODSP 


;Call I/O dispatcher 


DEFW 


TTYBSY 


; TTY busy 


DEFW 


CRTBSY 


; CRT busy 


DEFW 


LPTBSY 


; LPT busy 


DEFW 


UL1BSY 


; UL1 busy 



w 



TRS-80 Model 4 BIOS Version 2.00+ I/O routines for PUN: device 



*********************** *********************************** 



* Output character to PUN device 

* Input: ^character to output 



* 
* 

* Output: None * 

********************************************************** 



EC3E 


3A 03 00 


EC41 


07 


EC42 


07 


EC43 


07 


EC44 


07 


EC45 


E6 03 


EC47 


CD 64 EC 


EC4A 


77 EC 


EC4C 


B7 EC 


EC4E 


BF EC 


EC50 


C7 EC 



PUNCH 



LD 


A, (IOBYTE) 


RLCA 




RLCA 




RLCA 




RLCA 




AND 


03H 


CALL 


IODSP 


DEFW 


TTYOUT 


DEFW 


PTPOUT 


DEFW 


UPIOUT 


DEFW 


UP2DUT 



;Get the IOBYTE 
;Isolate PUN bits 



Call I/O dispatcher 
TTY output 
PTP output 
UP1 output 
UP2 output 
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TRS-80 Model 4 BIOS Version 2.00+ I/O routines for RDR: device 



* 



EC52 
EC55 
EC56 
EC 57 
EC59 
EC5C 
EC5E 
EC60 
EC62 



i 



4/ 



********************************************************** 

* Input from RDR device * 

* Input: None * 

* Output: A=character input * 
********************************************************** 



3A 03 00 
0F 
0F 

E6 03 
CD 64 EC 
75 EC 
9D EC 
A5 EC 
AD EC 



READER 



LD 


A,(IOBYTE) 


RRCA 




RRCA 




AND 


03H 


CALL 


IODSP 


DEFW 


TTYINP 


DEFW 


PTRINP 


DEFW 


UR1INP 


DEFW 


UR2INP 



;6et the IOBYTE 
;Isolate RDR bits 



;Ca11 I/O dispatcher 
; TTY input 
; PTR input 
; UR1 input 
; UR2 input 



TRS-80 Model 4 BIOS Version 2.00+ General BIOS subroutines 



EC64 


El 


EC65 


87 


EC66 


5F 


EC67 


16 m 


EC69 


19 


EC6A 


5E 


EC6B 


23 


EC6C 


56 


EC6D 


EB 


EC6E 


5E 


EC6F 


23 


EC70 


56 


EC71 


EB 


EC72 


E9 



73 EC 



EC73 


28 


Fl 


EC75 


30 


Fl 


EC77 


3B 


Fl 


EC79 


44 


Fl 


EC7B 


51 


ED 


EC7D 


61 


ED 


EC7F 


46 


EF 


EC81 


D0 


EC 


EC83 


51 


ED 


EC85 


61 


ED 


EC87 


46 


EF 


EC89 


D0 


EC 



********************************************************** 



* 
* 
* 
* 



I/O dispatch routine 
Input: A=Device code (0-3) 

(SP)=pointer to address table 
Output: None - goes to device routine 



* 
* 

* 
* 



********************************************************** 



IODSP 



POP 

ADD 

LD 

LD 

ADD 

LD 

INC 

LD 

EX 

LD 

INC 

LD 

EX 

JP 



HL 

A, A 

E,A 

D,0 

HL.DE 

E,(HL) 

HL 

D,(HL) 

DE,HL 

E,(HL) 

HL 

D,(HL) 

DE.HL 

(HL) 



;Table pointer to HL 
;Compute offset 
;Move offset to DE 

;Point to address 
;DE=vector pointer 



;HL=vector pointer 
;Vector to DE 



;HL=driver address 
;Exit to device driver 



********************************************************** 

* Device Driver Address Table * 

********************************************************** 



DDATBL EQU $ 

* 

> 

; TTY definitions 

• 


TTYSTS DEFW SPSTS 
TTYINP DEFW SPINP 
TTYOUT DEFW SPOUT 
TTYBSY DEFW SPBSY 

• 

> 

; CRT definitions 

* 


CRTSTS DEFW KBSTS 
CRTINP DEFW KBINP 
CRTOUT DEFW VDOUT 
CRTBSY DEFW NULBSY 

* 

9 

; UCl definitions 

* 


UCISTS 
UCIINP 
UCIOUT 
UCIBSY 


DEFW KBSTS 
DEFW KBINP 
DEFW VDOUT 
DEFW NULBSY 



;Serial port status 

;Serial port input 

;Serial port output 

; Serial port busy 



; Keyboard status 
; Keyboard input 
;Video output 
;Nul 1 busy 



; Keyboard status 
; Keyboard input 
;Video output 
;Null busy 
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-, LPT definitions 



EC8B 
EC8D 
EC8F 
EC91 



EC93 
EC95 
EC97 
EC99 



EC9B 
EC9D 
EC9F 
ECA1 



ECA3 
ECA5 
ECA7 
ECA9 



ECAB 
ECAD 
ECAF 
ECB1 



ECB3 
ECB5 
ECB7 
ECB9 



ECBB 
ECBD 
ECBF 
ECC1 



ECC3 
ECC5 
ECC7 
ECC9 



CB EC 
CD EC 
BF F0 
B3 F0 



CB EC 
CD EC 
BF F0 
B3 F0 



51 ED 
61 ED 
CC EC 
D0 EC 



28 Fl 
30 Fl 
3B Fl 
44 Fl 



28 Fl 
30 Fl 
3B Fl 
44 Fl 



CB EC 
CD EC 
46 EF' 
D0 EC 



28 Fl 
30 Fl 
3B Fl 
44 Fl 



28 Fl 
30 Fl 
3B Fl 
44 Fl 



LPTSTS DEFW 

LPTINP DEFW 

LPTOUT DEFW 

LPTBSY DEFW 



NULSTS 
NULINP 
PPOUT 
PPBSY 



; UL1 definitions 

* ^ mm ^ ■-mmu.mJMMM^^i— — rrrr 

UL1STS DEFW NULSTS 

UL1INP DEFW NULINP 

UL10UT DEFW PPOUT 

UL1BSY DEFW • PPBSY 

* 

; PTR definitions 



PTRSTS DEFW KBSTS 
P.TRINP DEFW KBINP 
PTROUT DEFW NULOUT 
PTRBSY DEFW NULBSY 

* 

; URl definitions 

* 


URISTS DEFW SPSTS 
URIINP DEFW SPINP 
URIOUT DEFW SPOUT 
URIBSY DEFW SPBSY 

* 

; UR2 def ini tions 

* 


UR2STS DEFW SPSTS 
UR2INP DEFW SPINP 
UR20UT DEFW SPOUT 
UR2BSY DEFW SPBSY 

> 

; PTP definitions 

* 


PTPSTS DEFW NULSTS 
PTPINP DEFW NULINP 
PTPOUT DEFW VDOUT 
PTPBSY DEFW NULBSY 

* 

» 

; UPl definitions 


UP1STS DEFW 
UP1INP DEFW 
UPIOUT DEFW 
UP1BSY DEFW 

* 

; UP2 def i nit 

* 


SPSTS 
SPINP 
SPOUT 
SPBSY 

ions 


UP2STS 
UP2INP 
UP20UT 
UP2BSY 


DEFW 
DEFW 
DEFW 
DEFW 


SPSTS 
SPINP 
SPOUT 
SPBSY 



;Null status 
;Nul 1 input 
;Parallel port output 
;Parallel port busy 



;Null status 
;Null input 
;Paral1el port output 
;Parallel port busy 



; Keyboard status 
; Keyboard input 
;Null output 
;Nu11 busy 



;Serial port status 

; Serial port input 

;Serial port output 

;Serial port busy 



;Serial port status 

;Serial port input 

;Serial port output 

;Serial port busy 



;Nu11 status 
;Null input 
;Video output 
;Nul 1 busy 



;Serial port status 

;Serial port input 

;Serial port output 

;Seria1 port busy - 



^A) 



w 



;Seria1 port status 

;Serial port input 

;Serial port output 

;Serial port busy 

* Null device drivers * 

* Input: None expected * 

* Output: None * 



ECCB 


AF 


NULSTS 


XOR 


A 


;Null status 


ECCC 


C9 


NULOUT 


RET 




;Nu11 output 


ECCD 


3E 1A 


NULINP 


LD 


A.1AH 


;Nu11 input 


ECCF 


C9 




RET 






ECD0 


3E FF 


NULBSY 


LD 


A.0FFH 


;Null busy 



w 
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$ 



ECD2 C9 RET 

* 

TRS-80 Model 4 BIOS Version 2.0JJ+ Device driver for Keyboard 



£ 



%- 



ED51 


3A 9A 


EE 


ED54 


B7 




ED55 


20 07 




ED57 


CO 6F 


ED 


ED5A 


C8 




ED5B 


32 9A 


EE 


ED5E 


F6 FF 




ED60 


C9 




E061 


21 9A 


EE 


ED64 


7E 




ED65 


36 00 




ED67 


B7 




ED68 


C0 




ED69 


CD 6F 


ED 


ED6C 


28 FB 




ED6E 


C9 




ED6F 


F3 




ED70 


3E 8E 




ED72 


D3 84 




ED74 


CD 24 


EE 


ED77 


C2 1C 


EE 


ED7A 


11 01 


F4 


ED7D 


06 00 




ED7F 


21 9D 


EE 


EDB2 


1A 




ED83 


4F 




LU84 


AE 




ED85 


/l 




ED36 


Al 




ED87 


20 3D 




ED89 


04 




ED8A 


23 




ED8B 


CB 03 




ED8D 


F2 82 


ED 


ED90 


3A A5 


EE 


ED93 


5F 




ED94 


1A 






4F 




ED96 


2A A6 


EE 


ED99 


7E 




ED9A 


Al 




ED9B 


20 0D 




ED9D 


ED 62 




ED9F 


22 AA 


EE 


EDA2 


21 00 


08 


EDA 5 


22 A8 


EE 


EDA8 


18 72 




EDAA 


AF 





* Keyboard device drivers 

* Input: None 

* Output: Dependent on function 
********************************************************** 



* 
* 
* 



P.olurn koylxj.ird •, l.ilu'. in A 



KBSTS 



KBSTS1 



LD 

OR 

JR 

CALL 

RET 

LD 

OR 

RET 



A,(KBDBUF) 

A 

NZ.KBSTS1 

KBSCAN 

Z 

(KBDBUF),A 

0FFH 



-.Check key buffer 

;Go if key there 
;Scan the keyboard 
;Exit if no key 
;Save the key found 
;Set status 



; Input from keyboard & return key in A 
KBINP 



LD 
LD 
LD 
OR 
RET 
KBINP1 CALL 
JR 
RET 



HL.KBDBUF 

A,(HL) 

(HL),0 

A 

NZ 

KBSCAN 

Z.KBINP1 



; Point to key buffer 
; Empty it 

;Check for key 
;Exit if found 
;Scan the keyboard 
;Loop if no key 



General keyboard scan - key returned in A if found 



KBSCAN 



KBSCN1 



DI 

LD 

OUT 

CALL 

JP 

LI) 

LD 



! [) 



KB'. CM.:' I I") 
I D 

i ' ' 

L I ' 

A I If 

K\iU 

INC 

INC 

RLC 

JF 

LD 

LD 

LD 

LD 

LD 

LD 

AND 

JR 

SBC 

LD 

LD 

LD 

JR 

XOR 



■A,KVMIN 
(MEMCTL).A 
KBFKC 
NZ,KHSCNX 

DL,0M01H 

13,0 

Ml ,K!M)1!S[ 
A,- !??' ! 



;No interrupts! 

; Switch Keyboard into RAM 



i"! 



KBSCN3 



N/.KBSCN4 

B 

!!L 

L ' 

P,KBSCN2 

A,(KBDPKR) 

E,A 

a!(de) 

C,A 

HU(KBDPKI) 

A,(HL) 

C 

NZ,KBSCN3 

HL,HL 

(KBDRPT),HL 

HL,0800H 

(KBDDLY),HL 

KBSCNX 

A 



Check function keys 

Go if key found 

Point to first row 

Initialize row § 

Point DE at history table 

St robo the keyboard 

^-ivo strobe in C 

Mdsk ol I prior keys 

bdve current scan 

Mask released keys 

Go if any key pressed 

Update row # 

Update history pointer 

Move to next key row 

Loop if any rows left 

Point DE at Prv Key Row 



;Scan the row again 
;Save the scan 
;Point HL at Prv Key 
;Get previous image 
;Key still down? 
;Go if yes 
;Clear Repeat Counter 

;Reset Delay Counter 

;Exit with no key 
;Clear carry & A 



Image 
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tUMB 


te 


LA 


EDAC 


2A AA EE 


LD 


EDAF 


23 


INC 


EDB0 


22 AA EE 


LD 


EDB3 


ED 4B A8 EE 


LD 


EDB7 


ED 42 


SBC 


EDB9 


38 61 


JR 


EDBB 


12 


LD 


EDBC 


22 AA EE 


LD 


EDBF 


2E 80 


LD 


EDC1 


22 A8 EE 


LD 


EDC4 


18 B4 


JR 


EDC6 


4F 


KBSCN4 LD 


EDC7 


CD 84 EE 


CALL 


EDCA 


28 50 


JR 


EDCC 


7B 


LD 


EDCD 


32 A5 EE 


LD 


EDD0 


22 A6 EE 


LD 


EDD3 


CB 20 


SLA 


EDD5 


CB 20 


SLA 


EDD7 


CB 20 


SLA 


EDD9 


05 


DEC 


EDDA 


04 


KBSCN5 INC 


EDDB 


CB 39 


SRL 


EDDD 


30 FB 


JR 


EDDF 


21 A4 EE 


LD 


EDE2 


78 


LD 


EDE3 


FE 20 


CP 


EDE5 


30 IB 


JR 


EDE7 


CB 56 


BIT 


EDE9 


20 31 


JR 


EDEB 


CB F0 


SET 


EDED 


B7 


OR 


EDEE 


28 2B 


JR 


EDF0 


3A AC EE 


LD 


EDF3 


B7 


OR 


EDF4 


20 25 


JR 


EDF6 


CB E8 


SET 


EDF8 


3E 03 


LD 


EDFA 


A6 


AND 


EDFB 


28 IE 


JR 


EDFD 


3E 20 


LD 


EDFF 


A8 


XOR 


EE00 


18 1A 


JR 


EE02 


D6 20 


KBSCN6 SUB 


EE04 


4F 


LD 


EE05 


06 00 


LD 


EE07 


11 AD EE 


LD 


EE0A 


EB 


EX 


EE0B 


09 


ADD 


EE0C 


01 18 00 


LD 


EE0F 


1A 


LD 


EE10 


E6 07 


AND 


EE12 


28 06 


JR 


EE14 


09 


ADD 


EE15 


E6 04 


AND 


EE17 


28 01 


JR 


EE19 


09 


ADD 


EE1A 


46 


KBSCN8 LD 


EE1B 


78 


KBSCN9 LD 


EE1C 


4F 


KBSCNX LD 


EE1D 


3E 8F 


LD 


EE1F 


D3 84 


OUT 


EE21 


79 


LD 


EE22 


B7 


OR 


EE23 


C9 


RET 



ULjHL 

HL.(KBDRPT) 

HL 

(KBDRPT),HL 

BC.(KBDDLY) 

HL,BC 

C, KBSCNX 

(DE),A 

(KBDRPT).HL 

L,80H 

(KBDDLY).HL 

KBSCN1 

C,A 

KBDBN 

Z, KBSCNX 

A,E 

(KBDPKR).A 

(KBDPKI).HL 

B 

B 

B 

B 

B 

C 

NCKBSCN5 

HL.KBDHST+7 

A,B 

32 

NC.KBSCN6 

2,(HL) 

NZ, KBSCNX 

6,B 

A 

Z,KBSCN9 

A.(KBDCLF) 

A 

NZ,KBSCN9 

5,B 

A, 3 

(HL) 

Z,KBSCN9 

A,20H 

B 

KBSCNX 

32 

C,A 

B,0 

DE,KBDCOD 

DEVHL 

HL.BC 

BC,24 

A,(DE) 

07H 

Z.KBSCN8 

HL.BC 

4 

Z.KBSCN8 

HL,BC 

B,(HL) 

A,B 

C,A 

A , KVMOUT 

(MEMCTL).A 

A,C 

A 



msiory puinier to uc 
Repeat counter to HL 
Increment the count 
Save the counter 
Get the delay value 
Delay long enough? 
Exit if no time-out 
Clear history for rescan 
Save zeroed counter 
Set short delay 



^^) 



;Go scan again 
;True scan to C 
;Do debounce delay 
;.Exit if no key 
;Save row bit 

;Save image pointer 
;Multiply row # by 8 



Precomp for shift 

Update char position 

Shift strobe bit left 1 

Loop till it falls off 

Point HL at control image 

Get table offset 

In alpha keys? 

Go if not 

Control pressed? 

Exit if yes 

Convert offset to ASCII 

Is this '<a' key? 

Exit if yes 

Get CAPS Lock Flag 

CAPS locked? 

Go if yes 

Make lower case 

Check SHIFT keys 

Is either one down? 

Go if not 

Invert bit 5 

Exit with key 
Calculate offset 
Put in BC 

Decode table base to DE 
Move to HL, KBDHST to DE 
Point to standard table 
Table length to BC 
Isolate CTRL, SHI FT keys 

Go if neither down 
Move to SHIFT table 
Isolate CTRL key 
;Go if only SHIFT 
;Move to CTRL table 
;Get decoded key in B 
; Return key to A 
;Store character in C 
; Switch out keyboard 

;Restore the key, if any 
;Set Z if no key found 



^/ 
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Scan function keys 



$> 



c 



•V 



EE24 


2A 


9B 


EE 


EE27 


7C 






EE28 


B5 






EE29 


20 


4C 




EE2B 


11 


7F 


F4 


EE2E 


4B 






EE2F 


1A 






EE30 


B7 






EE31 


28 


02 




EE33 


0E 


07 




EE35 


21 


A4 


EE 


EE38 


1C 






EE39 


1A 






EE3A 


Al 






EE3B 


4F 






EE3C 


AE 






EE3D 


71 






EE3E 


Al 






EE3F 


C8 






EE40 


4F 






EE41 


CD 


84 


EE 


EE44 


C8 






EE45 


CB 


59 




EE47 


28 


0F 




EE49 


3A 


AC 


EE 


EE4C 


EE 


01 




EE4E 


32 


AC 


EE 


EE51 


C5 






EE52 


0E 


28 




EE54 


C4 


EE 


EF 


EE57 


CI 






EE58 


3E 


70 




EE5A 


Al 






EE5B 


C8 






EE5C 


07 






EE5D 


EB 






EE5E 


21 


10 


EF 


EE61 


01 


09 00 


EE64 


ED 


42 


• 


EE66 


07 






EE67 


30 


FB 




EE69 


0E 


IB 




EE6B 


1A 






EE6C 


E6 


03 




EE6E 


20 


06 




EE70 


1A 






EE71 


E6 


04 




EE73 


28 02 




EE75 


09 






EE76 


09 






EE77 


7E 






EE78 


23 






EE79 


B7 






EE7A 


22 


9B 


EE 


EE7D 


C0 






EE7E 


67 






EE7F 


6F 






EE80 


22 


9B 


EE 


EE83 


C9 






EE84 


3E 


0F 




EE86 


CD 


14 


ED 



KBFKC 



KBFKC1 



KBFKC2 



KBFKC3 



KBFKC4 
KBFKC 5 



LD 

LD 

OR 

JR 

LD 

LD 

LD 

OR 

JR 

LD 

LD 

INC 

LD 

AND 

LD 

XOR 

LD 

AND 

RET 

LD 

CALL 

RET 

BIT 

JR 

LD 

XOR 

LD 

PUSH 

LD 

CALL 

POP 

LD 

AND 

RET 

RLCA 

EX 

LD 

LD 

SBC 

RLCA 

JR 

ID 

LD 

AND 

JR 

LD 

AND 

JR 

ADD 

ADD 

lD 

INC 

OR 

LD 

RET 

LD 

LD 

LD 

RET 



HL.(KBDFKP) 

A,H 

L 

NZ,KBFKC5 

DE,0F47FH 

C,E 

A,(DE) 

A 

Z, KBFKC 1 

C.07H 

HL.KBDHST+7 

E 

A,(DE) 

C 

C,A 

HL) 

HL),C 
C 
Z 

C,A 
KBDBN 
Z 

3,C 

Z.KBFKC2 
A.(KBDCLF) 
01H 

(KBDCLF),A 
BC 

C40 

NZ.VDBEL1 
BC 

A.70H 
C 
Z 

DE.HL 

HL.KBDCOD+99 
BC,9 
HL.BC 

NC.KBFKC3 

C,27 

A,(DE) 

03H 

NZ,KBFKC4 

A,(DE) 

4 

Z.KBFKC5 

HL.BC 

HL.BC 

A,(HL) 

HL 

A 

(KBDFKP).HL 

NZ 

H,A 

L,A 

(KBDFKP).HL 



;Get Function Key Pointer 
; Is a key active? 



Debounce a key 



Go if yes 

Set DE for rows 0-6 

Preset key mask 

Strobe rows 0-6 

Anything down? 

Go if not 

Must ignore F1,F2,F3,CAPS 

Point HL at rbw 7 image 

Set DE for row 7 

Strobe row 7 

Mask off if necessary 

Result in C 

Set changed bits 

Save current scan 

Mask released keys 

Exit if no key down 

Corrected scan to C 

Do debounce delay 

Exit if no key down 

CAPS key down? 

Go if not 

Toggle the flag 



;Save registers 

;Set counter for short beep 

;Beep if locking 

;Check function keys 



Exit if none down 
Prepare to position 
History pointer to DE 
Point HL at Decode table 
Set BC to 1 entry length 
Back up table pointer 
Check next F key bit 
Loop until found 
Preload for next round 
Get key scan from KDBHST 
Check the SHIFT keys 
Go if either down 
Get key scan again 
Check the CTRL key 
Go if not pressed 
Move down one group 
Move down one group 
Get next keystroke 
Update pointer 
End of definition? 
Save def pointer 
Exit if valid key 
Clear the pointer 



;Exit with key 



KBDBN 



LD 
CALL 



A, 15 
MSDELY 



;Set time (app. 15ms) 
;Do the delay 
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EE89 
EE8A 
EE8B 



EE8C 
EE8F 
EE93 
EE96 
EE99 



EE9A 
EE9B 
EE9D 
EEA1 
EEA5 
EEA6 
EEA8 
EEAA 
EEAC 



EEAD 
EEB1 
EEB5 
EEB9 
EEBD 
EEC1 

EEC5 
EEC9 
EECD 
EED1 
EED5 
EED9 



EEDD 
EEE1 
EEE5 
EEE9 
EEED 
EEF1 



EEF5 
EEF9 
EEFD 
EEFE 
EF02 
EF06 
EF07 
EF0B 
EF0F 

EF10 
EF14 
EF18 
EF19 
EF1D 



1A 
Al 
C9 



CD 23 ED 
9A EE 12 00 

21 00 08 

22 A8 EE 
C9 



9A EE 

00 

00 00 

00 00 00 00 

00 00 00 00 

00 

00 00 
00 08 

00 00 

01 
AD EE 



30 31 32 33 
34 35 36 37 
38 39 3A 3B 
2C 2D 2E 2F 
0D 18 03 0B 
0A 08 09 20 

30 21 22 23 
24 25 26 27 
28 29 2A 2B 
3C 3D 3E 3F 
0D IB 03 0B 
0A 08 09 20 



30 7C 32 7E 
34 5E 36 60 
5B 5D 3A 313 
7B 5F 7D 5C 
0D 7F 03 0B 
0A 08 09 20 



46 31 20 20 

20 20 20 20 

00 

46 32 20 20 

20 20 20 20 

00 

46 33 20 20 

20 20 20 20 

00 

53 48 49 46 

54 2F 46 31 

00 

53 48 49 46 

54 2F 46 32 



LD 

AND 

RET 



A,(DE) 
C 



;Scan keyboard again 
;Mask off released keys 



; Initialize Keyboard DCB 



KBINIT CALL CLRMEM ;Clear DCB fields 

DEFW KBDCB,KBDCLF-KBDCB 

LD HL,0800H ;Reset repeat counter 

• LD (KBDDLY).HL 
RET 

5 

; Keyboard Device Control Block 

KBDCB EQU $ 

KBDBUF DEFB Character buffer 

KBDFKP DEFW function Key Pointer 

KBDHST DEFB 0,0,0,0,0,0,0,0 -.History for 8 rows 



KBDPKR 
KBDPKI 
KBDDLY 
KBDRPT 
KBDCLF 
KBDCOD 



DEFB 
DEFW 
DEFW 
DEFW 
DEFB 
EQU 





0800H 


1 



•$ 



• 



Unshifted keys 
DEFB '01234567' 



DEFB 



'89:;,-./' 



DEFB 0DH,18H,03H,0BH 
DEFB 0AH,08H,09H,20H 
Shifted keys 
DEFB '0! "#$%&'" 



; Previous Key Row bit 

; Previous. Key Image pointer 

; Del ay before repeating 

; Del ay between repeats 

;CAPS Lock Flag 

; Keyboard Decode table 



12 3 4 5 6 7 

;8 9 : ; , - . / 

ENTER CLEAR BREAK UP 
DOWN LEFT RIGHT SPACE 

12 3 4 5 6 7 



DEFB 

DEFB 
DEFB 



0DH,1BH,03H,0BH 
0AH,08H,09H,20H 



;8 9 



» > 



/ 



;ENTER CLEAR BREAK UP 
;D0WN LEFT RIGHT SPACE 






Control keys 
DEFB '0>24M)<t' 



DEFB 

DEFB 
DEFB 



'[]:;« **' 



;0 1 2 3 4 5 6 7 

,89:;,-./ 



0DH,7FH,03H,0BH ;ENTER CLEAR BREAK UP 
0AH,08H,09H,20H ;D0WN LEFT RIGHT SPACE 



; Function Key Definition table (9 bytes per entry) 

* 

— — * ^* *^ ** **" ^" ** ** *p p* ^k *fc #-\ -^m ^ta ^m ^*~- ^ , *v„ ^tf m-- ^p* ^m. ^a ^v ^m* ^b • ^^ ^^ v^i^^ m* 4* ^m ^^ ^* ^» ^v ^v ^m ^» ^» ^» ^» ^a « ^n 

KBFKD DEFB 'Fl ',0 



DEFB 



DEFB 



'F2 



'F3 



',0 



',0 



DEFB 'SHIFT/F1' ,0 



DEFB 'SHIFT/F2',0 



^J^ 



W 



^^^ 
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* 



EF21 


00 






EF22 


53 48 


49 


46 


EF26 


54 2F 


46 


33 


EF2A 


00 






EF2B 


43 54 


52 


4C 


EF2F 


2F 46 


31 


20 


EF33 


00 






EF34 


43 54 


52 


4C 


EF38 


2F 46 


32 


20 


EF3C 


00 






EF3D 


43 54 


52 


4C 


EF41 


2F 46 


33 


20 


EF45 


00 







DEFB 'SHIFT/F3',0 



t 



V 



DEFB 'CTRL/F1 ' ,0 



DEFB 'CTRL/F2 ' ,0 



DEFB 'CTRL/F3 ' ,0 



TRS-80 Model 4 BIOS Version 2.00+ Device driver for Video Display 



EF46 


F3 




EF47 


3E 8E 




EF49 


D3 84 




EF4B 


3A 8D 


F0 


EF4E 


CD 6F 


EF 


EF51 


CD 8B 


EF 


EF54 


CD 6A 


EF 


EF57 


32 8D 


F0 


EF5A 


CB 7F 




EF5C 


28 02 




EF5E 


3E 9B 




EF60 


F6 80 




EF62 


CD 6F 


EF 


EF65 


3E 8F 




EF67 


D3 84 




EF69 


C9 




EF6A 


CD 74 


EF 


EF6D 


7E 




EF6E 


C9 




EF6F 


CD 74 


EF 


EF72 


77 




EF73 


C9 




EF74 


2A 8E 


F0 


EF77 


C5 




EF78 


D5 




EF79 


01 00 


F8 


EF7C 


51 




EF7D 


5D 




EF7E 


4C 





••a******************************* 



* 



* Video Display drivers 

* Input: Dependent on function 

* Output:. None returned to caller 

Output character in C to Video Display 



VDOUT DI 
LD 
OUT 
LD 

CALL 
CALL 
CALL 
LD 
BIT 
JR 
LD 

VDOUT 1 OR 

CALL 
LD 
OUT 
RET 



A.KVMIN 

(MEMCTL).A 

A.(VDDCHR) 

VDPUT 

VDPROC 

VDGET 

(VDDCHR).A 

7, A 

Z.VDOUT1 

A.9BH 

80H 

VDPUT 

A , KVMOUT 

(MEMCTL).A 



No interrupts 

Switch Video into RAM 

Get character at cursor 

Replace it in Video RAM 

Process input character 

Get character at cursor 

Save in DCB 

Is character inverted? 

Go if not 

Set in alternate cursor 

Insure reverse video 

Output cursor 

Switch out Video 



; Get a character from Video RAM at cursor 



VDGET CALL 
LD 
RET 



VDCSR 
A,(HL) 



; Point HL at cursor position 
;Get the character 



; Put a character into Video RAM at cursor 



VDPUT CALL 
LD 
RET 



VDCSR 
(HL),A 



; Point HL at cursor position 
;Output the character 



; Point HL at cursor position in Video RAM 

• ■■«■■■■■■ 

VDCSR LD HL.(VDDROW) ;Get cursor column & row 

» 

; Compute RAM Address for position (L=Row» H=Col) 



VDCRA 



PUSH 


BC 


PUSH 


DE 


LD 


BC.0F800H 


LD 


D,C 


LD 


E,L 


LD 


C,H 



;Save work registers 

; Video RAM base to BC 
;Row # to DE 

; Column # to C 
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EF7F 


62 




EF80 


29 




EF81 


29 




EF82 


19 




EF83 


29 




EF84 


29 




EF85 


29 




EF86 


29 




EF87 


09 




EF88 


Dl 




EF89 


CI 




EF8A 


C9 




EF8B 


3A 91 


F0 


EF8E 


B7 




EF8F 


20 12 




EF91 


79 




EF92 


FE 20 




EF94 


38 43 




EF96 


3A 90 


F0 


EF99 


Bl 




EF9A 


CD 6F 


EF 


EF9D 


2A 8E 


F0 


EFA0 


C3 24 F0 


EFA3 


FE 02 




EFA5 


38 0C 




EFA7 


28 IE 




EFA9 


79 




EFAA 


FE 3D 




EFAC 


3E 02 




EFAE 


28 25 




EFB0 


AF 




EFB1 


18 22 




EFB3 


3A 92 


F0 


EFB6 


6F 




EFB7 


79 




EFB8 


D6 20 




EFBA 


FE 50 




EFBC 


38 02 




EFBE 


3E 4F 




EFC0 


67 




EFC1 


22 8E 


F0 


EFC4 


AF 




EFC5 


18 0E 




EFC7 


79 




EFC8 


D6 20 




EFCA 


FE 18 




EFCC 


38 02 




EFCE 


3E 17 




EFD0 


32 92 


F0 


EFD3 


3E 01 




EFD5 


32 91 


F0 


EFD8 


C9 




EFD9 


21 93 


F0 


EFDC 


06 00 




EFDE 


09 




EFDF 


7E 




EFE0 


B7 





LD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

ADD 

POP 

POP 

RET 



H,D 

HL.HL 

HL.HL 

HL.DE 

HL ,HL 

HL.HL 

HL,HL 

HL.HL 

HL,BC 

DE 

BC 



;Row # also in HL 
;HL=Row # * 4 

;HL=Row # * 5 (4+1) 
;HL=Row # * 80 (80=5*16) 



w 



;Add video base, Column # 
;Restore registers 



; Process Video output characters 



V DP ROC 


LD 


A,(VDDESC) 


;Get ESC sequence contro' 


t 


OR 


A 


;In ESC sequence? 




JR 


NZ, VDESH 


;Go if yes 




LD 


A,C 


;Get the character 




CP 


20H 


;Control code? 




JR 


CVDCTL 


;Go if yes 




LD 


A.(VDDINV) 


;Get inverse video mask 




OR 


C 


;Combine with character 




CALL 


VDPUT 


;Output to Video Display 




LD 


HL,(VDDR0W) 


;Cursor Column, Row to HL 




JP 


VDCRT • 


;Cursor right & exit 


; Video 


Display 


ESC Sequence 


Handler 


VDESH 


CP 


2 


;Check state of ESC 




JR 


C.VDESH1 


;Go if state 1 




JR 


Z.VDESH2 


;Go if state 2 


4 


LD 


A,C 


;Get input character 




CP 


1 _ I 


;Must be • = ' 




LD 


A, 2 


;Set next state in A 




JR 


Z, VDESHX 


;Go if val id 




XOR 


A 


;Clear state variable 




JR 


VDESHX 


; and exit 


VDESH 1 


LD 


A,(VDDESX) 


;Get saved Row 




LD 


L,A 


;Put it in L 




LD 


A,C 


;Get input Column 




SUB 


20H 


;Convert to actual 




CP 


80 


;Is column # valid? 




JR 


C,$+4 


;Skip next if so 




LD 


A, 79 


;Move to last column 




LD 


H,A 


;Put it in H 




LD 


(VDDR0W),HL 


;Store as new cursor 




XOR 


A 


;Clear state variable 




JR 


VDESHX 


; and exit 


VDESH2 


LD 


A,C 


;Get the input character 




SUB 


20H 


;Convert to actual Row 




CP 


24 


;Is it valid? 


4 


JR 


C,$+4 


;Skip next if it is 




LD 


A, 23 


;Move to last row 




LD 


(VDDESX),A 


; Store in DCB 




LD 


A,l 


;Set next state in A 


VDESHX 


LD 


(VDDESC),A 


;Save state variable 


■ 


RET 




; and exit 


; Video 

• 


Display 


Control Code 


processing 



^^ 



VDCTL 



LD 

LD 

ADD 

LD 

OR 



HL.VDCXAT 

B,0 

HL.BC 

A,(HL) 
A 



HL=Code Address Table 
Table offset in BC 
Index to routine offset 
Pick up routine offset 
;Is the code defined? 



^^ 



Page 46 - ©(p) Copyright 1985 by Montezuma Micro/JBO 



c 



c 



V 



EFE1 


C8 


EFE2 


21 E2 EF 


EFE5 


4F 


EFE6 


09 


EFE7 


E5 


EFE8 


2A 8E F0 


EFEB 


C9 


EFEC 


0E 00 


EFEE 


3E 01 


EFF0 


06 64 


EFF2 


03 90 


EFF4 


10 FC 


EFF6 


AF 


EFF7 


06 64 


EFF9 


D3 90 


EFFB 


10 FC 


EFFD 


0D 


EFFE 


20 EE 


F000 


C9 


F001 


7C 


F002 


B5 


F003 


28 2D 


F005 


25 


F006 


F2 32 F0 


F009 


26 4F 


F00B 


18 0F 


F00D 


7C 


F00E 


E6 F8 


F010 


C6 08 


F012 


67 


F013 


FE 50 


F015 


38 IB 


F017 


26 00 


F019 


2C 


F01A 


18 16 


F01C 


2D 


F01D 


F2 32 F0 


F020 


2E 00 


F022 


18 0E 


F024 


24 


F025 


7C 


F026 


FE 50 


F028 


38 08 


F02A 


26 00 


F02C 


18 EB 



VDCTL1 



RET 

LD 

LD 

ADD 

PUSH 

LD 

RET 



HL.VDCTL1 

C,A 

HL,BC 

HL 

HL.(VDDROW) 



•.Ignore if not 

;Point HL at base address 

;Add offset for this code 

;Routine address to stack 
;Cursor Column, Row to HL 
;Go to it 



Sound the built-in speaker 



VDBEL 


LD 


C0 


;Set duration counter 


VDBEL1 


LD 


A,l 


;Set bit on 




LD 


B.100 


;Set pitch counter 


VDBEL2 


OUT 


(SOUND), A 


;Crank up a wave 




DJNZ 


VDBEL2 






XOR 


A 


;Turn bit off 




LD . 


B.100 


; Reset pitch counter 


VDBEL3 


OUT 


(SOUND), A 


;Let the wave die 




DJNZ 


VDBEL3 


a 




DEC 


C 


;Count down duration 




JR 


NZ.VDBEL1 


;Loop until timeout 


• 


RET 






; Move 


the cursor left 1 position 


VDCLT 


LD 


A,H 


;At top of screen? 




OR 


L 






JR 


Z, VDCSCK 


;Go if yes 




DEC 


H 


;Back up 1 position 




JP 


P.VDCSCK 


;Exit if no wrap 




LD 


H,79 


;Move to end of line 


* 


JR 


VDVT 


; and back up 1 row 


; Move 

* 


cursor 


to next tab stop 


■i 


VDTAB 


LD 


A,H 


;Column # to A 




AND 


0F8H 


;Make it mod 8 




ADD 


A, 8 


;Move to next tab stop 




LD 


H,A 






CP 


80 


;Line overflow? 




JR 


CVDCSCK 


;Exit if not 


* 


LD 


H,0 


;Move down 1 line 


; Move 

* 


cursor 


down 1 line 




VDI.F 


INC 


L 


increment the row # 


* 


JR 


VDCSCK 




; Move 

* 


cursor 


up 1 line 




vdvi 


DEC 


L 


;Back up 1 row 




JP 


P.VDCSCK 


;6o if not negative 




LD 


L.0 


;Hold on top line 


« 


JR 


VDCSCK 


• 


9 

; Move 

* 


cursor 


right 1 position 





VDCRT 



INC 

LD 

CP 

JR 

LD 

JR 



H 

A.H 

80 

CVDCSCK 

H.0 

VDLF 



;Advance 1 column 
;Get the new column 
;Still on line? 
;Go if yes 
;Move to next line 
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F02E 2E 00 



F030 26 00 



F032 


7D 


F033 


FE 18 


F035 


22 8E F0 


F038 


D8 


F039 


2E 17 


F03B 


22 8E F0 


F03E 


21 50 F8 


F041 


11 00 F8 


F044 


01 30 07 


F047 


ED B0 


F049 


21 17 00 


F04C 


18 10 


F04E 


E5 


F04F 


26 50 


F051 


CD 77 EF 


F054 


EB 


F055 


El 


F056 


18 09 


F058 


21 00 00 


F05B 


22 8E F0 


F05E 


11 80 FF 


F061 


CD 77 EF 


F064 


EB 


F065 


3A 90 F0 


F068 


F6 20 


F06A 


ED 52 


F06C 


44 


F06D 


4D 


F06E 


C3 2E ED 


F071 


AF 


F072 


18 08 


F074 


AF 


F075 


18 03 


F077 


3A 90 F0 


F07A 


EE 80 


F07C 


32 90 F0 


F07F 


C9 



VDHOM LD 



Perform Cursor Home 



L,0 



;Set row # to 



Perform Carriage Return 



VDCR 



LD 



H,0 



;Set column # to 



^^^ 



Check cursor position & scroll if necessary 



VDCSCK 



LD 

CP 

LD 

RET 

LD 

LD 

LD 

LD 

LD 

LDIR 

LD 

JR 



A,L 

24 

(VDDROW),HL 

C 

L,23 

(VDDROW).HL 

HL.0F800H+80 

DE.0F800H 

BC, 80*23 

HL,23 
VDEOS 



Get the cursor Row # 
Is it on-screen? 
Save the cursor 
Exit if on screen 
Stay on line 23 
Save the cursor 
Point HL at second line 
Point DE at top of screen 
Move 23 lines of video 
Scroll Video RAM 
Set Row=23, Column=0 
Clear new line & exit 



; Erase to end of current line 



VDEOL 



PUSH 

LD 

CALL 

EX 

POP 

JR 



HL 

H,80 

VDCRA 

DE,HL 

HL 

VDE0S1 



;Save cursor position 
;Set to end of line + 1 
-.Calculate RAM address 
;Put in DE 
;Restore cursor 
;Go clear 



; Home the cursor and clear the screen 



VDCLS LD 
LD 



HL.0000H 
(VDDROW).HL 



;Set cursor at 0,0 
;Save it in DCB 



; Erase to end of screen 



VDEOS LD 
VDE0S1 CALL 
EX 
LD 
OR 
SBC 
LD 
LD 
JP 



DE.0FF80H 

VDCRA 

DE,HL 

A.(VDDINV) 

20H 

HL.DE 

B,H 

C,L 

MFILL ' 



;Set end address 
;Calc start address 
;Start to DE, end to HL 
;Get inverse video mask 
; Create a blank 
;Compute clear length 
;Move length to BC 

;Fill memory & exit 



; Turn inverse video OFF 



VDIV0 XOR 
JR 



A 
VDINV2 



;Clear the flag 
;Go store it 



; Turn inverse video ON 



VDIV1 XOR 
JR 



A 
VDINV1 



;Clear the flag 
;Toggle & store it 



; Toggle state of inverse video 



VDINV LD 
VDINV1 XOR 
VDINV2 LD 
RET 



A.(VDDINV) 

80H 

(VDDINV),A 



;Get inverse video mask 

•.Reverse it 

; Replace in DCB 



^^ 
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A 



C 



vv 



F080 


3E 03 


VDESC 


LD 


A, 3 


;Set ESC state variable 


F082 


C3 D5 EF 


* 


JP 


VDESHX 


; & exit 




CD 23 ED 


4 

» 

* 

> 

V 


Initialize 1 


/ideo Display DCB 


fields 


F085 


DINIT 


CALL 


CLRMEM 


;Clear DCB fields 


F088 


8E F0 05 00 




DEFW 


VDDROW, VDCXAT-' 


VDDROW 


F08C 


C9 


* 


RET 








8D F0 


* 

> 

■ 

> 

V 


Video 


Displi 


iy Device Control 


Block 




DDCB 


EQU 


$ 




F08D 


20 


VDDCHR 


DEFB 


I I 


;Character under cursor 


F08E 


00 


VDDROW 


DEFB 





;Cursor row (0-23) 


F08F 


00 


VDDCOL 


DEFB 





;Cursor column (0-79) 


F090 


00 


VDDINV 


DEFB 





; Inverse video mask 


F091 


00 


VDDESC 


DEFB 





;Escape Sequence Control 


F092 


00 


VDDESX 


DEFB 





;Escape Sequence Storage % 




93 F0 


VDCXAT 


EQU 


$ 


;Control code address table 


F093 


00 




DEFB 


00H 


;Code 00 - ignored 


F094 


00 




DEFB 


00H 


;Code 01 - ignored 


F095 


00 




DEFB 


00H 


;Code 02 - ignored 


F096 


00 




DEFB 


00H 


;Code 03 - ignored 


F097 


00 




DEFB 


00H 


;Code 04 - ignored 


F098 


00 




DEFB 


00H 


;Code 05 - ignored 


F099 


00 


* 


DEFB 


00H 


;Code* 06 - ignored 


F09A 


0A 




DEFB 


VDBEL-VDCTL1 


;Code 07 - Sound bell 


F09B 


IF 




DEFB 


VDCLT-VDCTL1 


;Code 08 - Backspace 


F09C 


2B 




DEFB 


VDTAB-VDCTL1 


;Code 09 - Tab 


F09D 


37 




DEFB 


VDLF-VDCTL1 


;Code 0A - Linefeed 


F09E 


3A 




DEFB 


VDVT-VDCTL1 


;Code 0B - Vertical tab 


F09F 


42 




DEFB 


VDCRT-VDCTL1 


;Code 0C - Cursor right 


F0A0 


4E 




DEFB 


VDCR-VDCTL1 


;Code 0D - Carriage return 


F0A1 


8F 




DEFB 


VDIV0-VDCTL! 


;Code 0E - Inverse video OFF 


F0A2 


92 




DEFB 


VDIV1-VDCTL1 


;Code 0F - Inverse video ON 


F0A3 


00 




DEFB 


00H 


;Code 10 - ignored 


F0A4 


00 




DEFB 


00H 


;Code 11 - ignored 


F0A5 


00 




DEFB 


00H 


;Code 12 - ignored 


F0A6 


00 




DEFB 


00H 


;Code 13 - ignored 


F0A7 


00 


• 


DEFB 


00H 


;Code 14 - ignored 


F0A8 


6C 




DEFB 


VDE0L-VDCTL1 


;Code 15 - Erase to EOL 


F0A9 


95 




DEFB 


VDINV-VDCTL1 


;Code 16 - Toggle inverse 


F0AA 


00 




DEFB 


00H 


;Code 17 - ignored 


F0AB 


00 




DEFB 


00H 


;Code 18 - ignored 


F0AC 


7C 




DEFB 


VDEOS-VDCTL1 


;Code 19 - Erase to EOS 


F0AD 


76 




DEFB 


VDCLS-VDCTL1 


;Code 1A - Home & clear 


F0AE 


9E 




DEFB 


VDESC-VDCTll 


;Code IB - Start ESC 


F0AF 


00 




DEFB 


00H 


;Code 1C - ignored 


F0B0 


00 




DEFB 


00H 


;Code ID - ignored 


F0B1 


4C 




DEFB 


VDHOM-VDCTL1 


;Code IE - Home cursor 


F0B2 


00 


« 


DEFB 


00H 


;Code IF - ignored 




TRS-80 Model 


4 BIOS Version 2.00+ Parallel Printer Port device driver 








********************************************************** 








i * Pa 


rallel 


Port device drivers * 








. * 


Input: 


Dependent on function * 








; * i 


Output: 


Dependent on function * 








. ******************************************************* 




DB F8 




; Check port 


for busy &/or error - return in A 


F0B3 


i 


'PBSY 


IN 


A,(PARSDT) 


;Read port status 


F0B5 


E6 F0 






AND 


0F0H 


; Isolate status bits 
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•MM 



F0B7 


EE 30 




F0B9 


28 02 




F0BB 


3E 01 




F0BD 


3D 




F0BE 


C9 




F0BF 


21 25 


Fl 


F0C2 


79 




F0C3 


FE 20 




F0C5 


30 2D 




F0C7 


FE 0A 




F0C9 


20 0D 




F0CB 


CB 46 




F0CD 


28 25 




F0CF 


3A 24 


Fl 


F0D2 


FE 0D 




F0D4 


28 26 




F0D6 


18 1C 




F0D8 


FE 0C 




F0DA 


20 18 




F0DC 


CB 4E 




F0DE 


28 14 




F0E0 


3A 26 


Fl 


F0E3 


B7 




F0E4 


28 22 




F0E6 


47 




F0E7 


CD B3 


F0 


F0EA 


28 FB 




F0EC 


3E 0A 




F0EE 


D3 F8 




F0F0 


10 F5 




F0F2 


18 1A 




F0F4 


CD B3 


F0 


F0F7 


28 FB 




F0F9 


79 




F0FA 


D3 F8 




F0FC 


3E 0A 




F0FE 


B9 




F0FF 


20 07 




F101 


3A 26 


Fl 


F104 


3D 




F105 


32 26 


Fl 


F108 


3A 26 


Fl 


F10B 


B7 




F10C 


20 06 




F10E 


3A 27 


Fl 


Fill 


32 26 


Fl 


F114 


79 




F115 


32 24 


Fl 


F118 


C9 





PPBSY1 



XOR 

JR 

LD 

DEC 

RET 



30H 
Z,PPBSY1 

A,l 
A 



;Invert negative logic bits 
;Go if ready 

;Preset for zero return 

;Set A to 00H or FFH 



j^^ 



; Output C to parallel port 

* +r m ^ J-i ■ 

PPOUT 



PPOUT1 



PP0UT2 



LD 

LD 

CP 

JR 

CP 

JR 

BIT 

JR 

LD 

CP 

JR 

JR 

CP 

JR 

BIT 

JR 

LD 

OR 

JR 

LD 

CALL 

JR 

LD 

OUT 

DJNZ 

JR 



HL.PPDOPT 

A,C 

20H 

NC, PRINT 

0AH 

NZ.PPOUT1 

0,(HL) 

Z, PRINT 

A,(PPDPRV) 

0DH 

Z,PPCLF 

PRINT 

0CH 

NZ, PRINT 

l.(HL) 

Z, PRINT 

A,(PPDLCT) 

A 

Z.PPRLC 

B,A 

PPBSY 

Z.PPOUT2 

A.0AH 

(PARSDT).A 

PP0UT2 

PPRLC1 



;Point at option bits 

;Get character to print 

; Is it a control code? 

;Go if not 

;Is it linefeed? 

;Go if not 

;Suppress linefeeds? 

;Go if not 

;Check previous character 

;Was it carriage return? 

;Exit if so 

;Go print the linefeed 

;Is this a formfeed? 

;Go if not 

;Simulate formfeeds? 

;Go if not 

;Get line counter 

;Anything left on page? 

;Exit if not 

;Set up loop counter 

;Wait for printer ready 

;0utput a linefeed 

;Loop through the page 
;Exit 



W 



Print the character in C 



PRINT 



CALL 
JR 
LD 
OUT 



PPBSY 
Z, PRINT 
A,C 
(PARSDT).A 



;Wait for printer ready 
;Print the character 



Check for linefeed, count down if so 



PPCLF 



LD 

CP 

JR 

LD 

DEC 

LD 



A,0AH 

C 

NZ.PPRLC 

A,(PPDLCT) 

A 

(PPDLCT),A 



;Set A to linefeed 
;Did we just do one? 
;Exit if not 
;Decrement line counter 



; Reset line counter if zero, exit 

* 

PPRLC 



PPRLC1 



LD 
OR 
JR 
LD 
LD 



A.(PPDLCT) 

A 

NZ,PPOUTX 

A,(PPDPGL) 

(PPDLCT).A 



;Get line counter 
;Is it zero? 
;Exit if not 
;Reset line counter 



Save character and exit 



PPOUTX LD 
LD 
RET 



A,C 
(PPDPRV).A 



;Save character in DCB 
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'it 



c 



/ 



V\^ 



F119 
F11C 
FllF 
F120 
F123 


3A 
32 
AF 
32 
C9 


27 
26 

24 


Fl 
Fl 

Fl 


PPINIT LD 
LD 
XOR 
LD 
RET 

* 


A,(PPDPGL) 
(PPDLCT), A 
A 
(PPDPRV), A 




24 

W 
01 


Fl 




> 

; Parallel port 

• 


DCB 


F124 
F125 


PPDCB EQU 
PPDPRV DEFB 
PPDOPT DEFB 

* 
* 


$ 


1 


F126 
F127 


00 
42 






> 

* 

PPDLCT DEFB 
PPDPGL DEFB 



66 



;Reset line counter 

; Ki 1 1 previous character 



Previous character 
Option bits 
0=Suppress LF after CR 
l=Simulate formfeeds 
2-7=Reserved 
Line counter 
Page length 

TRS-80 Model 4 BIOS Version 2.00+ Serial Port device driver 

* Serial Port device drivers * 

Input: Dependent on function 
Output: Dependent on function 



F128 


DB 


EA 


F12A 


E6 80 


F12C 


C8 




F12D 


F6 


FF 


F12F 


C9 




F130 


DB 


EA 


F132 


E6 


80 


F134 


28 


FA 


F136 


DB 


EB 


F138 


E6 


7F 


F13A 


C9 




F13B 


CD 


44 Fl 


F13E 


28 


FB 


F140 


79 




F141 


D3 


EB 


F143 


C9 




F144 


DB 


EA 


F146 


E6 


40 


F148 


C8 




F149 


21 


75 Fl 


F14C 


CB 


46 


F14E 


28 


07 


F150 


DB 


E8 


F152 


E6 80 


F154 


EE 


80 


F156 


C8 




F157 


CB 


4E 



* Input: Dependent on function * 

********************************************************** 



Check for input at Serial Port, return status in A 



SPSTS 



IN 

AND 

RET 

OR 

RET 



A,(SERURT) 

80H 

Z 

0FFH 



;Get UART status 

; Isolate data received bit 

;€xit if nothing 

;Set status to show input 



Input a byte from the Serial Port 



SPINP 



IN 

AND 

JR 

IN 

AND 

RET 



A.(SERURT) 

80 M 

Z, SPINP 

A,(SERDAT) 

7FH 



;Get UART status 
;Anything received? 
;Loop if not 
;Read data byte 
;Mask off parity bit 



; Output a byte to the Serial Port 



SPOUT 



CALL 

JR 

LD 

OUT 

RET 



SPBSY 
Z, SPOUT 
A,C 
(SERDAT).A 



;Is the port busy? 
;Loop until ready 
;Get output byte 
;0utput it 



; Check Serial Port for busy 



SPBSY 



SPBSY1 



IN 

AND 

RET 

LD 

BIT 

JR 

IN 

AND 

XOR 

RET 
BIT 



A,(SERURT) 

40H 

Z 

HL.SPDOPT 

0,(HL) 

Z,SPBSY1 

A,(SERRST) 

80H 

80H 

Z 
UHL) 



Get UART status 

Ready to Xmit? 

Exit if not 

Point to options byte 

Wait for CTS enabled? 

Go if not 

Get secondary status 

Check CTS input bit 

Invert state of CTS * 

Above changed to NOP in 2.22 
Exit if no CTS 
Wait for DSR enabled? 
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F159 
F15B 
F15D 
F15F 

F161 
F162 
F164 



28 07 
DB E8 
E6 40 
EE 40 

C8 

F6 FF 
C9 



SPBSY2 



JR 
IN 
AND 
XOR 

RET 
OR 

RET 



Z.SPBSY2 

A,(SERRST) 

40H 

40H 

Z 
0FFH 



Go if not 

Get secondary status 

Isolate DSR bit 

Invert state of DSR * 

Above changed to NOP in 2.22 
;Exit if no DSR 
; Indicate ready state 



W 



Initialize Serial Port 



F165 
F168 
F16A 
F16C 
F16F 
F171 



3A 76 Fl 
D3 E9 
D3 E8 
3A 77 Fl 
D3 EA 
C9 



SPINIT LD 
OUT 
OUT 
LD 
OUT 
RET 



A.(SPDBDR) 
(SERBRG).A 
(SERRST).A 
A.(SPDCFG) 
(SERURT).A 



;Set the baud rate 

* 

; Reset the UART 

;Configure primary UART reg 



Serial Port Device Control Block 



F172 
F175 



F176 
F177 



F3C2 
F3C5 
F3C7 



72 Fl 
C3 65 Fl 

00 



55 
6C 



SPDCB 

SPDINT 

SPDOPT 



SPDBDR 
SPDCFG 



EQU 

JP 

DEFB 



DEFB 
DEFB 



$ 
SPINIT 





55H 
6CH 



Initialization vector 
Serial Port Options 
Bit 0=Wait for CTS 
Bit l=Wait for DSR 
Baud rate code 
UART configuration 



TRS-80 Model 4 BIOS Version 2.99+ I/O routines for drive M: 

*********************************************** 

* Memory drive read routine * 

Input: Select parameters in Select Control Block 

Output: Record moved to (DSBDMA) 
********************************************************** 



* 

* 



* 

* 



w 



F3B5 


CD D7 F3 


F3B8 


CD ED F3 


F3BB 


ED 5B 25 F7 


F3BF 


21 DB F9 



MDREAD 



CALL 
CALL 
LD 
LD 



MDADDR 

MDMOVE 

DE, (DSBDMA) 

HL.WKBUF 



;Set up addresses 
;Move data to work buffer 
;Point DE at destination 
; & HL at source 



01 80 00 
ED B0 
C9 



******** r. x * * ********************************************** 

* Move a record * 

* Input: HL=Source record address * 

* DE=Desti nation record address * 

* Output: None - record moved to new location * 
********************************************************** 



MOV RE C 



LD 

LDIR 

RET 



8C128 



; for 1 record length 
;Move the record 



********************************************************** 



* 

* 



* Memory drive write routine 

* Input: Select parameters in Select Control Block 

* Output: Record moved from (DSBDMA) * 
********************************************************** 



F3C8 


2A 


25 


F7 


F3CB 


11 


DB 


F9 


F3CE 


CD 


C2 


F3 


F3D1 


CD 


D7 


F3 


F3D4 


EB 






F3D5 


i n 

1U 


16 





MDWRIT LD 
LD 

CALL 
CALL 
EX 
JR 



HL, (DSBDMA) 

DE,WKBUF 

MOVREC 

MDADDR 

DE,HL 

MDMOVE 



; Point HL at record 
; & DE at work buffer 
;Move record to work buffer 
;Set up addresses 
; Switch for write 
; Write record & exit 
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€> 



t 



%s 



********************************************************** 

* Memory drive address setup routine * 

* Input: Information in Select Control Block * 

A=Map address select bits * 

DE=Internal record buffer address * 

* HL=Record address in alternate memory map * 
********************************************************** 






Output: 



F3D7 


21 23 F7 


F3DA 


7E 


F3DB 


2B 


F3DC 


66 


F3DD 


2E 00 


F3DF 


CB 3C 


F3E1 


CB ID 


F3E3 


F6 06 


F3E5 


07 


F3E6 


07 


F3E7 


07 


F3E8 


07 


F3E9 


11 DB F9 


F3EC 


C9 



MDADDR 



LD 

LD 

DEC 

LD 

LD 

SRL 

RR 

OR 

RLCA 

RLCA 

RLCA 

RLCA 

LD 

RET 



HL.DSBSEC+1 

A,(HL) 

HL 

H,(HL) 

L0 

H 

L 

6 



;Point HL at sector # 
;Page # to A (0 or 1) 
; Point to Is byte of sector 
;Memory address * 256 to HL 

; Divide by 2 to get true 
; record address 
;Set FXUPMEM, MBIT1 
;Rotate into bits 6-4 



DE.WKBUF 



;Point to internal buffer 



********************************************************** 

* 

* Memory drive data move routine * 

* Input: A=Address select bits for move 

* HL=Source address for move 

DE=Destination address for move 

Output: 128 bytes moved as requested 
******************************************* 



* 
* 



* 
* 
* 
* 



F3ED 


F3 


F3EE 


F6 8F 


F3F0 


D3 84 


F3F2 


CD C2 F3 


F3F5 


3E 8F 


F3F7 


D3 84 


F3F9 


AF 


F3FA 


C9 




TRS-80 Model 



MDMOVE 



DI 

OR 

OUT 

CALL 

LD 

OUT 

XOR 

RET 



KVMOUT 

(MEMCTL),A 

MOVREC 

A, KVMOUT 

(MEMCTL),A 

A 



;No interrupts now! 
;Set mapping bits 
;Se1ect alternate map 
;Move the record 
;Set normal map bits 
;Restore normal map 
;Clear status for good 



I/O 



4 BIOS Version 2.00+ I/O routines for Floppy Drives 

********************************************************** 



* 
* 



Floppy Disk I/O Driver 
Input: A=Function code 

1 - Read a sector 

2 - Write a sector 

BC=Track number (B should always be 0) 
DE=Sector number (D should always be 0) 
HL=Buffer address 
IX=DCB for selected drive 
IY=DPB for selected drive 
Output: A=Status of operation 

Bits match WD 1791 FDC conventions 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



********************************************************** 



F3FB 


F3 




F3FC 


3D 




F3FD 


28 07 


F3FF 


3D 




F400 


28 


3A 


F402 


3E 


10 


F404 


B7 




F405 


C9 





FDD 



DI 

DEC 

JR 

DEC 

JR 



Z.FDREAD 

A 

Z.FDWRIT 



;No interrupts 
;'Check function code 
;1 = Read 

;2 = Write 



Return INOP status for Floppy Disk Drive 



FDINOP LD 
OR 
RET 



A.10H 
A 



;Return RNF error 

;Clear Z to set error status 
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Read a sector trom disk 



F406 


CD 83 F4 


F409 


C0 


F40A 


CD 19 F4 


F40D 


C8 


F40E 


F8 


F40F 


CD 16 F5 


F412 


CD 19 F4 


F415 


C8 


F416 


CD 0D F5 


F419 


CD 22 F4 


F41C 


C8 


F41D 


F8 


F41E 


CD 22 F4 


F421 


C8 


F422 


E5 


F423 


06 80 


F425 


CD 4A F5 


F428 


38 F4 


F42A 


DB F0 


F42C 


A3 


F42D 


28 FB 


F42F 


ED A2 


F431 


7A 


F432 


D3 F4 


F434 


ED A2 


F436 


18 FA 


F438 


El 


F439 


E6 9C 


F43B 


C9 


F43C 


CD 83 F4 


F43F 


C0 


F440 


CD 51 F4 


F443 


C8 


F444 


E6 C0 


F446 


C0 


F447 


CD 16 F5 


F44A 


CD 51 F4 


F44D 


C8 


F44E 


CD 0D F5 


F451 


CD 5C F4 


F454 


C8 


F455 


E6 C0 


F457 


C0 


F458 


CD 5C F4 


F45B 


C8 


F45C 


E5 


F45D 


06 A0 


F45F 


CD 4A F5 


F462 


7F F4 



FDREAD 


CALL 


FDBEGN 


;Start the I/O operation 




RET 


NZ- 


;Exit if error 




CALL 


FDRD3 


;Try to read 3 times 




RET 


Z 


;Exit if successful 




RET 


M 


;Exit if inoperative 




CALL 


FDJOG 


;Jog the head 




CALL 


FDRD3 


;Try 3 more times 




RET 


z 


;Exit if read OK 


4 


CALL 


FDRST 


; Restore the drive 


> 

; Read 


a sector 


with 3 attempts 




FDRD3 


CALL 


FDRDSC 


;Try to read the sector 




RET 


Z 


;Exit if it worked 




RET 


M 


;Exit if inoperative 




CALL 


FDRDSC 


;Try again 


* 


RET 


Z 


;Exit if OK 


> 

; Read 

• 


a sector 


HL 




FDRDSC 


PUSH 


;Save buffer address 




LD 


B,80H 


;Set up read command 




CALL 


FDSET 


; Start the command 




DEFW 


FDRDS3 


; Termination address 


FDRDS1 


IN 


A.(FDCCTL) 


;Read the status 




AND 


E 


;Got a DRQ yet? 




JR 


Z.FDRDS1 


;Loop if not 




INI 




;Read first byte 




LD 


A,D 


;Establish wait states 


FDRDS2 


OUT 


(FDCSEL),A 


;Go into wait state 




INI 




;Read a byte 




JR 


FDRDS2 


;Keep reading 


FDRDS3 


POP 


HL 


; Restore buffer address 




AND 


9CH 


;Any errors? 


* 


RET 




;Exit with status 


9 

; Write 


a sector to disk 




FDWRIT 


CALL 


FDBEGN 


;Start the I/O operation 




RET. 


NZ 


;Exit if error 




CALL 


FDWT3 


;Try to write 3 times 




RFT 


I 


;Exit if successful 




AND 


0C0H 


;Exit if inop or w/p 




RET 


N7. 






CAU 


FDJOG". 


;Jog the head 




CALL . 


FDW13. 


;7ry 3 more times 




Rti 


z: 


;Exit if write OK 




CALL 


FDRST 


;Restore the drive 


> 


■ a ?°rtor. with 3 attempt 


s 


FDWT3 


CALL 


FDWTSC 


;Try to write the sector 




RET 


Z 


;Exit if it worked 




AND 


0C0H 


;Exit if inop or w/p 




RET 


NZ 






CALL 


FDWTSC 


;Try again 


* 


RET 


Z 


;Exit if OK 


> 

; Write 


> a sectc 


>r 
HL 




FDWTSC 


PUSH 


;Save buffer address 




LD 


B,A0H 


;Set up write command 




CALL 


FDSET 


;Start the command 




DEFW 


FDWTS4 


; Termination address 



^^J 



y 



^ 
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F464 
F466 
F467 
F469 
F46B 
F46C 
F46D 
F46F 
F471 
F474 
F476 
F478 
F479 
F47B 
F47D 
F47F 
F480 
F482 







F483 
F486 
F488 
F48B 
F48E 
» NOTE 
» NOTE 
F492 

F496 
F49A 
F49C 
F49F 
F4A1 
F4A3 
F4A7 
. F4A9 
F4AA 
F4AB 
F4AE 
F4AF 
F4B0 
F4B3 
F4B4 
F4B8 
F4BA 
F4BB 
F4BE 
F4C0 
F4C4 
F4G5 
F4C7 
F4C8 
F4CB 
F4CD 
F4CF 
F4D1 
F4D4 
F4D6 
F4D9 
F4DC 
F4DE 
F4DF 



DB F0 
A3 

28 FB 
ED A3 
7E 
23 

0E F0 
ED 58 
E2 6F 
D3 F3 
0E F3 
7A 

D3 F4 
ED A3 
18 FA 
El 

E6 FC 
C9 



FDWTS1 



FD 7E 
E6 80 
DD B6 
DD 71 
FD CB 
%— - 

CD 80 
28 1C 
CB 39 
FD CB 
20 03 
DD 71 
30 0F 
F6 10 
FD CB 
28 07 
F5 
7B 

FD 86 
5F 
Fl 

DD 77 
79 

FD CB 
28 01 
87 

DD BE 
38 04 
DD CB 
57 

DB F0 
07 

CD 3C 
3E D0 
D3 F0 
30 0D 
DD 46 
3E FA 
CD 14 
CD 3C 
10 F6 
7B 
D3 F2 



FDWTS2 



F4 



FDWTS3 



FDWTS4 



IN 

AND 

JR 

OUTI 

LD 

INC 

LD 

IN 

JP 

OUT 

LD 

LD 

OUT 

OUTI 

JR 

POP 

AND 

RET 



A.(FDCCTL) 

E 

Z.FDWTS1 

A,(HL) 

HL 

CFDCCTL 

E,(C) 

PO.FDWTS2 

(FDCDAT),A 

C.FDCDAT 

A,D 

(FDCSEL).A 

FDWTS3 

HL 

0FCH 



;Read the status 
;Got a DRQ yet? 
;Loop if not 
;Output first byte 
;6et the next byte in i 

;Point C at status reg 
;Loop for second DRQ 



Output the byte 
Restore C to data port 
Establish wait states 
Go into wait state 
Write a byte 
Keep writing 
Restore buffer address 
Any errors? 
Exit with status 



Select the disk & wait for speed 



13 

03 
0B 

13 76 
EXBIOS 
FE 00 



13 56 
0B 

13 5E 



FDBEG1 



0F 

0A 
13 6E 

08 
0A EE 



F5 



05 

ED 
F5 



FDBEGN LD 
AND 
OR 
LD 
BIT 
•replaces the above 

CALL 
OR 
SRL 
BIT 
JR 
LD 
JR 
OR 
BIT 
JR 

PUSH 
LD 
ADD 
LD 
POP 
LD 
LD 
BIT 
JR 
ADD 
CP 
JR 
SET 
LD 
IN 

RLCA 
CALL 
LD 
OUT 
JR 
LD 
LD 

CALL 
CALL 
DJNZ 
LD 
OUT 



FDBEG2 



FDBEG3 



FDBEG4 



FDBEG5 



FDBEG6 



A,(IY+DPBOPT) 
80H 

(IX+DKDSEL) 
(IX+DKDLTK),C 
6,(IY+DPB0PT) 
instruction with 
BIOSEX 
Z.FDBEG2 
C 

2,(IY+DPB0PT) 
NZ.FDBEG1 
(IX+DKDLTK),C 
NCFDBEG2 
10H 

3,(IY+DPBOPT) 
Z.FDBEG2 
AF 
A,E 

A,(IY+DPBSPT) 
E,A 
AF 

(IX+DKDCSL),A 
A,C 

5,(IY+DPB0PT) 
Z.FDBEG3 
A, A 

(IX+DKDPTO) 
CFDBEG4 
5,(IX+DKDCSL) 
D,A 
A.(FDCCTL) 

FDSEL 

A.0D0H 

(FDCCTL),A 

NCFDBEG6 

B,(IX+DKDSTD) 

A, 250 

MSDELY 

FDSEL 

FDBEG5 

A,E 

(FDCSEC),A 



this: 



Get drive option bits 
Isolate density 
Combine with select bits 
Save logical track # 
Double-sided disk? 



patch 



Call BIOS 

Go if not 

Divide track # by 2 

Side 1 same track #? 

Go if not 

Save new track # 

Go if on side 

Turn on side 1 select 

Side 1 sectors biased? 

Go if not 

Save select bits 

Get sector # 

Add side 1 bias 

Restore sector # 

Restore select bits 

Save select bits 

Get track # 

Double stepping drive? 

Go if not 

Compute true track # 

Precomp needed yet? 

Go if not 

Turn it on 

True track # to D 

Get controller status 

Ready bit to C flag 

Select the drive 

Reset the FDC 

;Go if drive -running 
;Start-up delay to B 
; Del ay for 1/4 second 

;Select again 
;Wait for speed 
;Get the sector # 
;Give to controller 
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Seek the proper track 



F4E1 


DD 7E 09 


F4E4 


D3 Fl 


F4E6 


3C 


F4E7 


CC ID F5 


F4EA 


7A 


F4EB 


OD BE 07 


F4EE 


D2 02 F4 


F4F1 


D3 F3 


F4F3 


DD 77 09 


F4F6 


CD 3C F5 


F4F9 


DB Fl 


F4FB 


92 


F4FC 


28 09 


F4FE 


7A 


F4FF 


B7 


F500 


28 02 


F502 


3E 10 


F504 


CD ID F5 


F507 


DD 7E 0B 


F50A 


D3 Fl 


F50C 


C9 


F50D 


DD 56 09 


F510 


DD 36 09 FF 


F514 


18 CB 


F516 


3E 58 


F518 


CD ID F5 


F51B 


3E 68 


F51D 


C5 


F51E 


4F 


F51F 


3E 02 


F521 


CD 14 ED 


F524 


DD 7E 04 


F527 


E6 03 


F529 


Bl 


F52A 


CI 


F52B 


CD 42 F5 


F52E 


CD 3C F5 


F531 


DB F0 


F533 


IF 


F534 


38 F8 


F536 


DD 7E 06 


F539 


C3 14 ED 


F53C 


DD 7E 0A 


F53F 


D3 F4 


F541 


C9 


F542 


D3 F0 


F544 


3E 14 


F546 


3D 


F547 


20 FD 



FDSEEK 



FDSEK1 
FDSEK2 



LD 

OUT 

INC 

CALL 

LD 

CP 

JP 

OUT 

LD 

CALL 

IN 

SUB 

JR 

LD 

OR 

JR 

LD 

CALL 

LD 

OUT 

RET 



A,(IX+DKDCTK) 

(FDCTRK).A 

A 

Z, FDSTEP 

A,D 

(IX+DKDNTK) 

NCFDINOP 

(FDCDAT),A 

(IX+DKDCTK),A 

FDSEL 

A,(FDCTRK) 

D 

Z.FDSEK2 

A,D 

A 

Z,FDSEK1 

A.10H 

FDSTEP 

A,(IX+DKDLTK) 

(FDCTRK),A 



Get current track 
Give to controller 
First access (=FFH)? 
Restore the drive if so 
Get desired track 
Is it legal? 
Return INOP if so 
Output track to FDC 
Save also in DCB 
Re-select the drive 
Get the track # 
Any seek required? 
Go if not 

Target track # to A 
Is it zero? 
Go if yes 

Set up seek command 
Seek the track 
Get logical track § 
;Give it to controller 



W 



Restore the head for I/O retry 



FDRST 



LD 
LD 
JR 



D % (IX+DKDCTK) ;Current track # to D 
(IX+DKDCTK),0FFH ;Force restore 
FDSEEK ;Restore, seek & exit 



Jog the head for I/O retry 



FDJOG 



LD 

CALL 

LD 



A,58H 

FDSTEP 

A.68H 



;Step the head in 1 track 
;Now step out 1 track 



^^k 



; Perform a step operation 



FDSTEP 



FDSTP1 



PUSH 

LD 

LD 

CALL 

LD 

AND 

OR 

POP 

CALL 

CALL 

IN 

RRA 

JR 

LD 

JP 



BC 

C,A 

A, 2 

MSDELY 

A,(IX+DKDATT) 

3 

C 

BC 

FDCMD 

FDSEL 

A,(FDCCTL) 

CFDSTP1 

A,(IX+DKDSTL) 

MSDELY 



Save BC 

Save step command 

Wait 2 ms to be sure 

erase turned off 
Get drive attributes 
Isolate step rate 
Combine with command 
Restore BC 
Issue step command 
Reselect the drive 
Get the status 
Still busy? 
Loop if yes 
Settle time to A 
Delay & return 



Keep disk selected until not busy 



FDSEL 



LD 

OUT 

RET 



A,(IX+DKDCSL) 
(FDCSEL),A 



;Select the drive 



Issue a command to the disk controller 



FDCMD OUT 
LD 

FDCMD1 DEC 
JR 



(FDCCTL),A 
A, 20 
A 
NZ.FDCMD1 



; Issue the command 
;Set delay counter 
;Count down 16 usee 
;Loop if not zero 



^^^ 
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V 



W * V 








* 










E5 






; Set 

* 


up for 


I/O to FDC 


;Save buffer address 


F54A 


FDSET 


PUSH 


HL 


F54B 


3A 


66 


00 




LD 


A,(0066H) 


;Save NMI vector 


F54E 


32 


58 


F9 




LD 


(NMITMP).A 




F551 


2A 


67 


00 




LD 


HL,(0067H) 




F554 


22 


59 


F9 




LD 


(NMITMP+l),HL 




F557 


3E 


C3 






LD 


A.0C3H 


;Set up new NMI vector 


F559 


32 


66 


00 




LD 


(0066H),A 




F55C 


21 


88 


F5 




LD 


HL, FDNMI 




F55F 


22 


67 


00 




LD 


(0067H),HL 




F562 


El 








POP 


HL 


;6et buffer address 


F563 


E3 








EX 


(SP),HL 


;Swap with return 


F564 


5E 








LD 


E,(HL) 


;Get termination address 


F565 


23 








INC 


HL 




F566 


56 








LD 


D,(HL) 




F567 


23 


4 






INC 


HL 




F568 


EB 








EX 


DE.HL 


termination to HL 


F569 


E3 








EX 


(SP),HL 


;Put on stack 


F56A 


D5 








PUSH 


DE- 


•.Replace return address 


F56B 


DD 


56 


0A 




LD 


D,(IX+DKDCSL) 


;Set D=Select + bit 6 


F56E 


CB 


F2 






SET 


6,D 




F570 


IE 


02 




I 


LD 


E,2 


;Set E to DRQ mask 


F572 


0E 


F3 






LD 


C.FDCDAT 


;Set C to Data port 


F574 


CD 


3C 


F5 




CALL 


FDSEL 


; Re-select the drive 


F577 


DD CB 04 76 




BIT 


6,(IX+DKDATT) 


;Is this 8 inch drive? 


F57B 


28 02 






JR 


Z.FDSET1 


;Go if not 


F57D 


CB 


D8 






SET 


3,B 


; Enable HLT delay 


F57F 


78 






FDSET1 


LD 


A,B 


-.Command to A 


F580 


CD 


42 


F5 




CALL 


FDCMD 


;Give it to the controller 


F583 


3E 


C0 






LD 


A,0C0H 


;Enable NMI from disk 


F585 


D3 


E4 






OUT 


' (NMICTL).A 




F587 


C9 






* 


RET 








E3 






> 

; Non- 

* 


maskabl 


e interrupt service routine 


F588 


. FDNMI 


EX 


(SP),HL 


;Discard return, save HL 


F589 


AF 








XOR 


A 


;Turn off NMI enable 


F58A 


D3 


E4 






OUT 


(NMICTL).A 


* 


F58C 


3A 


58 


F9 




LD 


A.(NMITMP) 


;Restore NMI vector 


F58F 


32 


66 


00 




LD 


(0066H),A 




F592 


2A 


59 


F9 




LD 


HL,(NMITMP+1) 




F595 


22 


67 


00 




LD 


(0067H),HL 


• 


F598 


DB 


F0 






IN 


A.(FDCCTL) 


;Read final status 


F59A 


El 








POP 


HL 


;Restore HL 


F59B 


C9 






* 


RET 




• 




TRS-80 Model 


4 BIOS Version 2. 


,00+ Disk tables 


& parameters 



\W 



; * Disk Parameter Headers (DPH) for drives A-D & M * 



F59C 


85 


F6 


00 


00 


F5A0 


00 


00 00 00 


F5A4 


5B 


F9 


EC 


F5 


F5A8 


D8 


F8 


40 


F7 


F5AC 


A3 


F6 00 


00 


F5B0 


00 


00 


00 


00 


t-r r» a 

r'JDH 


5B 


F9 


01 


F6 


F5B8 


F8 


F8 A4 


F7 


F5BC 


CI 


F6 


00 


00 


F5C0 


00 


00 00 00 



DPHA 



DPHB 



DPHC 



DEFW 
DEFW 
DEFW 
DEFW 

DEFW 
DEFW 
DEFW 
DEFW 

DEFW 
DEFW 



XLT0.0000H 
0000H.0000H 
DBUF.DPB0 
CHK0.ALL0 

XLT1.0000H 
0000H.0000H 
DBUF.DPB1 
CHK1.ALL1 

XLT2.0000H 
0000H.0000H 



; Drive A parameter header 



; Drive B parameter header 



; Drive C parameter header 
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.4 ... 



F5C8 


18 


F9 


ID 

08 


ro 
F8 


■ 


ucrw 

DEFW 


udut , 

CHK2, 

* 


vroc 

ALL2 


F5CC 


DF F6 00 00 


DPHD 


DEFW 


XLT3, 


0000H 


F5D0 


00 00 00 00 




DEFW 


0000H 


I.0000H 


F5D4 


5B 


F9 


2B 


F6 




DEFW 


DBUF, 


DPB3 


F508 


38 


F9 


6C 


F8 


4 

* 


DEFW 


CHK3, 


ALL3 


F5DC 


00 00 00 00 


DPHM 


DEFW 


0000H,0000H 


F5E0 


00 00 00 00 




DEFW 


00001 


I.0000H 


F5E4 


5B 


F9 


40 


F6 




DEFW 


DBUF, 


,DPBM 


F5E8 


00 


00 


D0 


F8 


« 


DEFW 


0000H.ALLM 




00 00 






> 

; Offsets used 


to adc 


Iress D 




DPHXLT 


EQU 









08 00 






DPHBUF 


EQU 


8 






0A 


00 






DPHDPB 


EQU 


10 




* 


0C 


00 






DPHCSV 


EQU 


12 






0E 


00 






DPHALV 


EQU 


14 





;Drive D parameter header 



w 



;Drive M parameter header 



EC F5 



;Skew translation table 
;Di rectory buffer address 
;Disk Parameter Block 
;Check vector address 
;A1 location vector address 

. **************************•****'**** 

; * Disk Parameter Blocks (DPB) for drives A-D & M * 



DPB0 



F5EC 


24 00 


F5EE 


04 


F5EF 


0F 


F5F0 


01 


F5F1 


54 00 


F5F3 


7F 00 


F5F5 


C0 


F5F6 


00 


F5F7 


20 00 


F5F9 


02 00 


F5FB 


12 


F5FC 


01 


F5FD 


55 F6 


F5FF 


80 


F600 


01 




01 F6 


F601 


24 00 


F603 


04 


F604 


0F 


F605 


01 


F606 


54 00 


F608 


7F 00 


F60A 


C0 


F60B 


00 


F60C 


20 00 


F60E 


02 00 


F610 


12 


F611 


01 


F612 


61 F6 


F614 


80 


F615 


01 




16 F6 


F616 


24 00 


F618 


04 


F619 


0F 


F61A 


01 


F61B 


54 00 


F61D 


7F 00 


F61F 


C0 


F620 


00 



DPB1 



DPB2 



EQU 

DEFW 

DEFB 

DEFB 

DEFB 

DEFW 

DEFW 

DEFB 

DEFB 

DEFW 

DEFW 

DEFB 

DEFB 

DEFW 

DEFB 

DEFB 

EQU 

DEFW 

DEFB 

DEFB 

DEFB 

DEFW 

DEFW 

DEFB 

DEFB 

DEFW 

DEFW 

DEFB 

DEFB 

DEFW 

DEFB 

DEFB 

EQU 

DEFW 

DEFB 

DEFB 

DEFB 

DEFW 

DEFW 

DEFB 

DEFB 



$ 

36 

4 

15 

1 

84 

127 

192 


32 

2 

18 

1 

D0DCB 

80H 

1 

$ 

36 

4 

15 

1 

84 

127 

192 



32 

2 

18 

1 

D1DCB 

80H 

1 

$ " 

36 

4 

15 

1 

84 

127 

192 





Drive parameter block 
Records per track 
Block shift count 
Block mask 
Extent mask count 
Highest allocation block 
Highest directory # 
Initial allocation 
Initial allocation 1 
Directory check size 
Reserved track count 
Sectors per track 
Sector size code 
Drive DCB Address 
Drive option bits 
Drive format ID code 

Drive 1 parameter block 
Records per track 
Block shift count 
Block mask 
Extent mask count 
Highest allocation block 
Highest directory # 
Initial allocation 
Initial allocation 1 
Directory check size 
Reserved track count 
Sectors per track 
Sector size code 
Drive DCB Address 
Drive option bits 
Drive format ID code 

Drive 2 parameter block 
Records per track 
Block shift count 
Block mask 
Extent mask count 
Highest allocation block 
Highest directory # 
Initial allocation 
Initial allocation 1 



t^M 
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1 \JC X 

F623 


02 00 




DEFW 


2 ; 


Reserved track count 


F625 


12 




DEFB 


18 ; 


Sectors per track 


F626 


01 




DEFB 


1 ; 


Sector size code 


A . F627 


6D F6 




DEFW 


D2DCB 


Drive DCB Address 


Iffj F629 


80 




DEFB 


80H ; 


Drive option bits 


V^r F62A 


01 


* 


DEFB 


1 ; 


Drive format ID code 




2B F6 


DPB3 


EQU 


$ ; 


Drive 3 parameter block 


F62B 


24 00 




DEFW 


36 ; 


Records per track 


F62D 


04 




DEFB 


4 ; 


Block shift count 


/ F62E 


0F 




DEFB 


15 ; 


Block mask 


F62F 


01 




DEFB 


1 ; 


Extent mask count 


F630 


54 00 




DEFW 


84 ; 


Highest allocation block 


i F632 


7F 00 




DEFW 


127 ; 


Highest directory # 


I F634 


C0 




DEFB 


192 ; 


Initial allocation 


F635 


00 




DEFB 


; 


Initial allocation 1 


F636 


20 00 




DEFW 


32 ; 


Directory check size 


F638 


02 00 




DEFW 


2 


Reserved track count 


F63A 


12 




DEFB 


18 ; 


Sectors per track 


F63B 


01 




DEFB 


1 ; 


Sector size code 


F63C 


79 F6 




DEFW 


D3DCB ; 


.Drive DCB Address 


F63E 


80 




DEFB 


80H ; 


Drive option bits 


F63F 


01 


• 


DEFB 


1 ; 


Drive format ID code 




40 F6 


DPBM 


EQU 


$ ; 


.Drive M parameter block 


F640 


00 02 




DEFW 


512 ; 


, Records per track 


F642 


03 




DEFB 


3 ; 


, Block shift count 


F643 


07 




DEFB 


7 ; 


> Block mask 


F644 


00 




DEFB 


; 


> Extent mask count 


F645 


3F 00 




DEFW 


63 ; 


, Highest allocation block 


F647 


IF 00 




DEFW 


31 ; 


> Highest directory # 


F649 


80 


% 


DEFB 


128 ; 


> Initial allocation 


,/ F64A 


00 




DEFB 


; 


; Initial allocation 1 


if j F64B 


00 00 




DEFW 





l Directory check size 


V *W F64D 


00 00 




DEFW 





; Reserved track count 


F64F 


00 




DEFB 





; Sectors per track 


F650 


00 




DEFB 





; Sector size code 


F651 


00 00 




DEFW 


0000H 


; Drive DCB Address 


F653 


00 




DEFB 





; Drive option bits 


F654 


00 


* 


DEFB 





; Drive format ID code 




00 00 


> 

; Offsets used 

* 


to address Disk Parameter Block (DPB) fields 


DPBRPT 


EQU 





;Records Per Track 




02 00 


DPBBSH 


EQU 


2 


;Block Shift factor 




03 00 


DPBBLM 


EQU 


3 


;Block Mask 




04 00 


DPBEXM 


EQU 


4 


;Extent Mask 




05 00 


DPBDSM 


EQU 


5 


; Drive capacity 




07 00 


DPBDRM 


EQU 


7 


; Directory Maximum 




09 00 


DPBAL0 


EQU 


9 


; Initial Allocation 




0A 00 


DPBAL1 


EQU 


10 


; Initial Allocation 1 




0B 00 


DPBCKS 


EQU 


11 


;Check area size 




0D 00 


DPBOFF 


EQU 


13 


;Reserved track count 




0F 00 


DPBSPT 


EQU 


15 


;Sectors Per Track 




10 00 


DPBSSZ 


EQU 


16 


;Sector Size code 




11 00 


DPBDCB 


EQU 


17 


;Drive DCB address 




13 00 


DPBOPT 


EQU 


19 


; Drive option bits 
; 7=Density (0=S, 1=D) 
; 6=Sides (0=S, 1=D) 
; 5=Step (0=Norm, 1=2 x) 
; 4=Data (0=Norm» l=Inv) 








4 




/ 










; 3=Side 1 (0=Norm, l=Bias 
; 2=Track #(0=Norm, l=Bias 


W 
















i 


; l-0=Reserved 




14 00 


DPBDID 


EQU 


20 


;Disk format ID # 
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; * Disk Device Control Blocks (DCB) for drives 0-3 & M * 
. •******•**•***•••**•*******•****•****•*•** 





55 


F6 


F655 


C3 


FB F3 


F658 


01 




F659 


00 




F65A 


02 




F65B 


0F 




F65C 


28 




F65D 


16 




F65E 


FF 




F65F 


00 




F660 


00 






61 


F6 


F661 


C3 


FB F3 


F664 


02 




F665 


00 




F666 


02 




F667 


0F 




F668 


28 




F669 


16 




F66A 


FF 




F66B 


00 




F66C 


00 




9 


6D 


F6 


F66D 


C3 


FB F3 


F670 


04 




F671 


00 




F672 


02 




F673 


0F 




F674 


28 




F675 


16 




F676 


FF 




F677 


00 


* 


F678 


00 






79 


F6 


F679 


C3 


FB F3 


F67C 


08 




F67D 


00 




F67E 


02 




F67F 


0F 




F680 


28 




F681 


16 




F682 


FF 




F683 


00 




F684 


00 






00 


00 




03 


00 




04 


00 



00 DCB 



D1DCB 



D2DCB 



D3DCB 



EQU 

JP 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

EQU 

JP 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

EQU 

JP 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

EQU 

JP 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 

DEFB 



$ 

FDD 

01H 

00H 

2 

15 

40 

22 

255 





$ 

FDD 

02H 

00H 

2 

15 

40 

22 

255 





$ 

FDD 

04H 

00H 

2 

15 

40 

22 

255 




$ 

FDD 

08H 

00H 

2 

15 

40 

22 

255 







Drive DCB 
Driver vector 
Drive select bits 
Drive- attribute bits 
Start up delay in 1/4 sec 
Settle time in Ms 
Number of tracks 
Precomp turn-on track 
Current track 
Current select bits 
Logical track § 

Drive 1 DCB 
Driver vector 
Drive select bits 
Drive attribute bits 
Start up delay in 1/4 sec 
Settle time in Ms 
Number of tracks 
Precomp turn-on track 
Current track 
Current select bits 
Logical track # 

Drive 2 DCB 
Driver vector 
Drive select bits 
Drive attribute bits 
Start up delay in 1/4 sec 
Settle time in Ms 
Number of tracks 
Precomp turn-on track 
Current track 
Current select bits 
Logical track # 

Drive 3 DCB 
Driver vector 
Drive select bits 
Drive attribute bits 
Start up delay in 1/4 sec 
Settle time in Ms 
Number of track's 
Precomp turn-on track 
Current track 
Current select bits 
Logical track # 









; Offsets used to access Disk DCB fields 



DKDDVR EQU 
DKDSEL EQU 
DKDATT EQU 




3 
4 



• 



05 00 

06 00 

07 00 

08 00 

09 00 
0A 00 



DKDSTD 
DKDSTL 
DKDNTK 
DKDPTO 
DKDCTK 
DKDCSL 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



5 
6 
7 
8 
9 
10' 



Driver address 
Drive select bits 
Drive attribute bits 

7=Sides (0=S, 1=D) 

6=Type (0=5, 1=8) 

5- 2= Reserved 

l-0=Step rate (0-3) 
Drive start-up delay in Ms 
Drive settle time in Ms 
Number of tracks 
Precomp turn-on track 
Current track 
Current select bits 
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0B 00 



DKDLTK EQU 



11 



;Logical track # 



V 



c 



vW 



F685 


01 03 05 07 


F689 


09 0B 0D 0F 


F68D 


11 02 


F68F 


04 06 08 0A 


F693 


0C 0E 10 12 


F697 


00 00 


F699 


00 00 00 00 


F69D 


00 00 00 00 


F6A1 


00 00 


F6A3 


01 03 05 07 


F6A7 


09 0B 0D 0F 


F6AB 


11 02 


F6AD 


04 06 08 0A 


F6B1 


0C 0E 10 12 


F6B5 


00 00 


F6B7 


00 00 00 00 


F6BB 


00 00 00 00 


F6BF 


00 00 


F6C1 


01 03 05 07 


F6C5 


09 0B 0D 0F 


F6C9 


11 02 


F6CB 


04 06 08 0A 


F6CF 


0C 0E 10 12 


F6D3 


00 00 


F6D5 


00 00 00 00 


F6D9 


00 00 00 00 


F6DD 


00 00 


F6DF 


01 03 05 07 


F6E3 


09 0B 0D 0F 


F6E7 


11 02 


F6E9 


04 06 08 0A 


F6ED 


0C 0E 10 12 


F6F1 


00 00 


F6F3 


00 00 00 00 


F6F7 


00 00 00 00 


F6FB 


00 00 



********************************************************** 

* Disk sector translation tables * 

* Space reserved for 30 sectors per track maximum * 
********************************************************** 

XLT0 DEFB 1,3,5,7,9,11,13,15,17,2 
DEFB 4,6,8,10,12,14,16,18,0,0 
DEFB 0,0,0,0,0,0,0,0,0,0 



XLT1 



DEFB 



XLT2 



DEFB 



XLT3 



DEFB 



1,3,5,7,9,11,13,15,17,2 



DEFB 4,6,8,10,12,14,16,18,0,0 



DEFB 0,0,0,0,0,0,0,0,0,0 



1,3,5,7,9,11,13,15,17,2 



DEFB 4,6,8,10,12,14,16,18,0,0 



DEFB 0,0,0,0,0,0,0,0,0,0 



1,3,5,7,9,11,13,15,17,2 



DEFB 4,6,8,10,12,14,16,18,0,0 



DEFB 0,0,0,0,0,0,0,0,0,0 



I 



FE80 



V 



&&' 



; » — > End of disk resident portion of BIOS < — « 

* 

TRS-80 Model 4 BIOS Version 2.00+ BIOS extension for CP/H 2.2 version 2.2x 

; * Patch code loaded by EXBIOS * 



BIOSEX 



FE80 


FD CB 13 76 


FE84 


C8 


FE85 


D5 


FE86 


57 


FE87 


FD CB 13 4E 


FE8B 


28 24 


FE8D 


DD 5E 07 


FE90 


7B 


FE91 


FE 28 


FE93 


20 08 



ORG 


CCP+2A80H 


;Patch area 


BIT 


6,(IY+DPB0PT) 


;Double-sided disk? 


RET 


Z 


;Exit if not 


PUSH 


DE 


;Save DE 


LD 


D,A 


;Save drive select 


BIT 


1,(IY+DPB0PT) 


;Altemate sides? 


JR 


Z.BI0SX4 


; Return to BIOS if not 


LD 


E,(IX+DKDNTK) 


;Track count to E 


LD 


A,E 


;Check track size 


CP 


40 


;Is it other than 40? 


JR 


NZ.BI0SX1 


;6o if yes 
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FE95 


FD CB 13 66 




BIT 


4,(IY+DPB0PT) 


;Is this 35T SuperBrain? 


FE99 


28 02 




JR 


Z.BIOSX1 


;Go if not 


FE9B 


IE 23 




LD 


E,35 


;Set track count to 35 


FE9D 


79 


BI0SX1 


LD 


A,C 


;6et track # 


FE9E 


93 




SUB 


E 


;At end of side 0? 


FE9F 


30 03 




JR 


NC.BIOSX2 


;Go if yes 


FEA1 


AF 




XOR 


A 


;Set Z flag 


FEA2 


18 0F 




JR 


BI0SX5 


; Return to BIOS 


FEA4 


FD CB 13 46 


BI0SX2 


BIT 


0,(IY+DPBOPT) 


;Going inside out? 


FEA8 


28 04 


I 


JR 


Z.BIOSX3 


;Go if not 


FEAA 


ED 44 




NEG 




;Compute correct track # 


FEAC 


83 




ADD 


A,E 




FEAD 


3D 




DEC 


A 




FEAE 


87 


BIOSX3 


ADD 


A,A 


;Doub1e track # & 


FEAF 


3C 




INC 


A 


; force side 1 


FEB0 


4F 




LD 


C,A 


;Save new track # 


FEB1 


F6 FF 


BI0SX4 


OR 


0FFH 


; Reset Z flag for return 


FEB3 


7A 


BI0SX5 


LD 


A,D 


-.Restore drive select 


FEB4 


Dl 




POP 


DE • 


;Restore registers 


FEB5 


C9 




RET 




;Back to BIOS 




»— > End of BIOS patch 
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